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ABSTRACT 


This thesis describes the design of a user-friendly interactive satellite 
communications analysis program for use on a personal computer. The user 
inputs the various parameters of a satellite orbit, ground station location and 
communications equipment. The output generated allows a user to view the 
satellite ground trace and footprint, calculate satellite rise and set times, and 
analyze the performance of the communications link. The link analysis allows the 
user to input various signal losses and jamming interference. Care was taken to 
ensure that the program is simple to operate and that it provides on-line help for 
each segment. A principle goal of this thesis effort is to provide an educational 
tool that familiarizes the user with the communications segment of a space system. 
The initial success of the program based upon student response validates the use 
of object-oriented like software tools that enhance user understanding of 
complex subjects. 
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1. INTRODUCTION 


The role of space in the Navy took an important upturn on 1 August, 1990 
when the Space and Electronic Warfare (SEW) Directorate, OP-094, was 
established as a directorate equal in status to the air, surface and undersea warfare 
communities. The crisis in the Persian Gulf that culminated in Operation 'Desert 
Storm' further validated the significance of space. Reliance on the Global 
Positioning System (GPS) for navigation data and satellite communications for 
command and control during 'Desert Storm' was evident to anyone who read a 
newspaper. As the utilization of space assets increases and the recognition of 
their importance grows, the need to educate the average junior officer on the 
various aspects of space systems becomes increasingly important. The goal of 
this thesis is to design an interactive, object-oriented like program, that will 
familiarize the user with one portion of a space system, the satellite 
communications system. 

Many tools exist that will aid in the understanding of the complexity of a 
space system. Textbooks have always provided an academic orientation toward 
orbital mechanics and communications engineering. Software also exists that can 
provide a user with an efficient method to model the various parameters of a 
satellite or communications system. Often, the software and/or the systems on 
which they are designed to operate, are prohibitively expensive. The complexity 
of these tools may also require additional training to operate them effectively. It 
is therefore important that the program be designed to operate on relatively 
inexpensive equipment that requires minimal advanced training to operate. On- 






line help should be available to assist the user in understanding program 
operation. Ideally, the program would be machine independent; i.e., the specific 
operating system of the computer should not be the limiting factor of the 
program. 

The program designed for this thesis attempts to incorporate the 
requirements stated above. This program is designed to take advantage of the 
proliferation of personal computers. It assumes that the user is familiar with the 
basic operations of personal computers and has access to one. The chosen 
platform for the design of this program is the Macintosh personal computer and 
the development environment is HyperCard, version 2.0 or later. HyperCard and 
Macintosh are trademarks of Apple Computer, Inc., Cupertino, CA. HyperCard 
was chosen because of its ability to support rapid prototyping and because it 
comes bundled with every new Macintosh. Initially this restricts the use of the 
program to the Macintosh; however, software exists to convert this program to a 
comparable application that operates under the MS-DOS operating system. 

This thesis outlines the development environment in Chapter II. The specific 
challenges encountered by the author during the design of this program are 
discussed in Chapter III. The program covers only a small part of a space system. 
The modular nature of the program allows for a great deal of growth. 
Recommendations for further study and conclusions are outlined in Chapter IV. 
This thesis does not include the actual program nor does it attempt to explain the 
operation of the program. A copy of each card in the stack is reproduced in 
Appendix A. The explanation of program operation and the equations utilized by 
the program are part of Appendix A, pages 62 to 128. Additionally, the 
significant scripts for the program are listed in Appendix B through F. 





IL DESIGN ENVIRONMENT 


A. HYPERCARD OVERVIEW 

4 HyperCard is an object-oriented like application that comes with every new 

Macintosh. HyperCard is made up of five different types of objects; stacks, 

n 

backgrounds, cards, fields and buttons. Each object contains its own specific 
properties and can contain its own code, referred to as a script, that can perform 
various functions based upon the transmission of system messages and the 
object's properties. The language utilized by HyperCard in the scripts is 
HyperTalk. HyperTalk is different from other languages, such as Basic or Pascal, 
in that there is no such thing as a HyperTalk program that controls the activities 
of HyperCard from beginning to end. Instead, it is the objects and their 
relationships to one another that determine the operation of the program. This 
relationship is based upon a concept of hierarchy. [Ref. 1, pp. 321-322] 

B. HIERARCHY 

The concept of hierarchy is critical to understanding the operation of 
HyperCard. An illustration of this concept is laid out in Figure 1. At the top of 
the hierarchy is the HyperCard application itself and at the bottom lie the buttons 
» and fields. As HyperCard operates, a series of system messages are sent to the 

objects, depending on the current state of HyperCard. For example, if a user 
opens a HyperCard stack, an openStack message is sent from the stack up the 
hierarchy to HyperCard. When the stack opens, the first card in the stack is 
displayed and an openCard message is sent. When the user clicks the mouse, a 
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mouseUp message is sent. If the mouse click resides on a visible button, the 
message passes from the button up the hierarchy. 
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Home Stack Background 
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nCURE 1. OBJECT HIERARCHY [Ref. 1. p. 341] 


Scripts can be written for each object which will execute based upon these 
system messages. The scripts contain routines, referred to as handlers, that trap 
the system message at the desired object and execute a routine. These message 
handlers can contain additional handlers that will execute when called upon by 
name. These handlers must reside in the object or in the hierarchy above the 
object calling the handler. A card, for example, can call for a handler that resides 
in the card, its background, or the stack, but it may not call for a handler from a 
different card or from a field or button. 
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C OBJECTS 


As previously mentioned, HyperCard consists of five different objects: 
stacks, backgrounds, cards, buttons and fields. A stack may contain several 
backgrounds and multiple cards. Each background may have its own individual 
fields and buttons. Additionally, the background may contain various drawings 
or art work. Every card resides upon a background and each card can utilize the 
buttons, fields and art of the background in addition to its own fields, buttons and 
art. All of the objects in HyperCard can be quickly created or deleted as needed. 

The stack can be visualized as a stack of 3 by 5 note cards. The card on the 
top of the stack is the one that is visible to the user. Through the manipulation of 
buttons and fields that contain the proper script, the user can access the cards in 
the stack in the order the stack designer desires. These navigation objects are 
normally activated by the click of the mouse. 

Every object is identified by a specific identification number (id#) referenced 
to where it resides; for example, background button id 12 refers to a button that 
resides on a background whose id# is 12. Each object can also be given a name. 
This property is very useful as it allows the designer to refer to objects by their 
name. If the object's name is linked with the function of the object, the task of 
keeping track of object linkages becomes greatly simplified for the designer. It is 
also a method of self documenting the script so that an individual other than the 
designer can easily trace the operation of the script. 

The ability to design in»o the program a specific route of navigation 
between objects makes p HyperCard stack modular. Scripts can reside in each 
object, a capability that further enhances the modularity of HyperCard [Ref. 1, 
pp. 321-322). It is this modularity that makes HyperCard such an attractive 
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application. A single stack may contain several sections that accomplish a variety 
of different tasks. Outputs created by one section will remain alive in HyperCard 
as global variables and can be utilized, as needed, by any other section in the 
stack. Additionally, navigation between separate stacks is possible and the 
global variables created by one stack may be used by any other stack as long as 
HyperCard itself is active. 

D. HYPERTALK 

HyperTalk is a high level programming language. As a language it has 
structure and syntax that must be adhered to. Unlike other languages though, it 
is very liberal in its structure and syntax. For example, the command "go next" 
would cause HyperCard to bring the next card in the stack to the top. The 
command "go to next card" does the same thing. The forgiving nature of the 
language is the ideal environment for novice programmers. This statement should 
not be misconstrued, as HyperCeird is also an excellent environment for 
prototyping very sophisticated applications that require advanced programming 
skills. 

The scripts, which will execute based upon the transmission of system 
messages, contain commands for the manipulation of objects, built in and user 
defined functions, and key words that will execute user defined handlers when 
called. The ability for the user to define special functions and handlers is a 
tremendous asset, but care must be exercised to follow the hierarchy rules when 
defining the functions and handlers. 

For designers with experience in advanced programming, HyperCard offers 
unlimited expandibility through the use of exterior commands (XCMD) and 
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exterior functions (XFCN). XCMDs and XFCNs are separate programs written 
and compiled in a language such as Pascal and are intended to add a capability 
that does not already exist. These XCMDs and XFCNs can the be attached as a 
resource to the stack for which they are intended. They can then be called upon 
by a script in the same manner as built in functions and commands. [Ref. l,pp. 
750-751] 

The ability to attach resources to HyperCard allows for the development of 
multi-media stacks, i.e., stacks that provide text, graphics, audio and video 
presentations. For example, software exists that can record and digitalize audio 
and convert it into a resource. This thesis does not take advantage of XCMDs, 
XFCNs, or audio and video resources but they are mentioned here for follow on 
considerations. 

For access to the scripts the designer must set the property userLevel to 
five. From here the designer can open the script windows for each object. The 
script windows display the object's script under the script editor. The script editor 
allows a debugging capability that is useful in tracing the operation of 
complicated scripts. The script editor also automatically indents all control 
structures (if-then and repeat statements), a format that can aid the designer in 
debugging. 

HyperCard does not compile, but instead interprets the scripts as it is 
executed. The interpreted script remains in HyperCard's portion of the random 
access memory (RAM) as long as the RAM has room for it. When another script 
is interpreted, it too is added to the RAM and if there is no more room, previously 
interpreted scripts are deleted from the RAM. The designer is thus encouraged to 
take advantage of the modular nature of HyperCard and write frequently called 
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routines as separate, smaller handlers. These smaller handlers will remain in the 
RAM longer, thus increasing the speed of the program. Allotting more RAM for 
HyperCard will allow more scripts to remain interpreted, increasing the program's 
efficiency. [Ref. l,pp. 336-337] 
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in. DESIGN CHALLENGES 


A. GENERAL SCOPE 

As delineated in the introduction, the goal of this thesis is to design an 
interactive, object-oriented like program, that will allow the average junior officer 
to better understand the basics of a satellite communications system. The 
attributes of HyperCard, as outlined in Chapter II, meet the object-oriented like 
requirement. Thus arises the challenge of implementing HyperCard to model a 
satellite communications system. For the purpose of this thesis, the systems in 
question are communications with existing, stable satellites that reside in a closed 
earth orbit; i.e., communications with interplanetary probes were not addressed. 

This chapter will not attempt to describe the operation of the program nor 
does it outline the equations or the algorithms used by the scripts during their 
execution. A tutorial on the program operation and equations used is contained 
in Appendix A, pages 62 to 128. The significant scripts written for the stack are 
reproduced in Appendix B through E. 

The analysis of a communications system can be broken into three primary 
parts. The first part requires knowledge of the orbital elements of the satellite in 
question. The second requires information on the ground station's location and 
existing climate. The third section requires knowledge of the basic parameters 
associated with the communications equipment. It is important that the user be 
able to visualize how these three parts relate to one another. Three outputs were 
developed, based upon user inputs, that allow the user to visualize the 
relationships of these parts. The first output allows the user to see a ground trace 
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of the satellite as it orbits the earth. The second output allows the user to 
determine when the satellite comes into view of the ground station and the third 
output allows the user to analyze the performance of the communications 
equipment. At each stage in the operation the user is invited to adjust the various 
inputs and analyze their effect on the output. 

B. GROUND TRACE 

The ability of the user to visualize the ground trace of the satellite is 
probably the most important tool in understanding the operation T a satellite. 
Thus, the first major challenge in the design of the program was to give the user 
that capability. The physics involved in the determination of a satellite's position 
on orbit are not difficult and the average junior officer has the education required 
to understand the process. The problem arises in transferring that orbital position, 
which resides in one coordinate system, to a map of the earth, which resides in 
another coordinate system. The user should also be able to visualize a footprint 
on the ground of what the satellite can see. Additionally, the user should be able 
to display the ground trace and footprint of the satellite on a detailed map. 

Traditionally, the orbit of a satellite is based jpon an earth-centered inertial 
coordinate system. A location on the surface of the earth is referenced to another 
system. Tying these two coordinate systems together requires a coordinate 
transformation. The specific algorithm for this process was adapted from the 
work of Dennis Wangsness [Ref. 2]. This algorithm allows the program to plot 
the ground track of the orbit on a world map. The world map in question resides 
on the background of a card. The process that the program uses to display the 
ground trace is to copy the card with the world map and paste it, draw the 
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ground trace and then repeat the routine. The script for this process is located in 
Appendix E, pages 205 to 209, and the associated handlers are in Appendix B, 
pages 130 to 136. 

The footprint of the satellite is a function of the satellite’s altitude above the 
earth and of the ground station's minimum antenna elevation. The ability to 
model the specifics of the satellite antenna exists but was not included in this 
thesis. Once again, a coordinate transformation is required. The algorithm for this 
process was adapted from the work of Dennis Wangsness [Ref. 2]. The scripts 
for this process are located in Appendix E, pages 205 to 209, and the associated 
handlers are in Appendix B, pages 130 to 136. 

Perhaps the greatest challenge was locating maps that could provide 
accurate detail of specific locations on the earth. Many maps exist on computer 
shareware that could provide the required detail, but they could not be used 
because their geographic parameters were unknown. In order for the maps to 
work with the existing scripts, the latitude separation must be the same at any 
location on the map. That same property must hold true for the longitude. This 
type of map is known as a rectangular projection and is the type of projection 
used by the world map. While this type of projection on a small scale map causes 
significant distortions at higher latitudes, the distortions are minimal on a large 
scale map. The maps were generated by a product called MicroCam [Ref. 3]. 
MicroCam allows the user to select the desired projection, the center point of the 
map and the comer points. The maps are then scanned into the program stack. 
Once the maps with the proper projection were obtained, scaling them to fit the 
ground trace algorithm was relatively simple. The maps used for this program are 



depicted in Appendix A, pages 48 to 62. The scaling parameters are listed in 
Appendix E, pages 210 to 214. 

C RISE AND SET 

It is important to understand that, in most cases, a satellite does not hover 
overhead a ground station like a helicopter. The only time this is true is if the 
satellite is in a geostationary orbit. Depending upon the space system analyzed, 
this orbit may be prohibitive to the satellite's mission. In all other cases, the 
satellite will appear to the ground station to rise and set in the sky much like the 
sun or the moon. In order for the user to visualize how the orbital parameters and 
ground station location can impact access to the satellite, an ability to determine 
the rise and set times of the satellite must exist. A geostationary satellite is treated 
as a special case by the program and is always considered in view. 

The solution for the rise and set limes again involve coordinate 
transformations, as described above, and the transposition of the satellite position 
vector onto the ground station position vector. When the magnitude of the 
resultant vector exceeds the radius of the earth, the satellite is considered to be 
above the ground station's horizon. 

In order to increase the accuracy of the program, allowances are made for 
the oblateness of the earth. The Earth's radius at the equator exceeds its radius at 
the poles by about 21 kilometers. This fact could alter the rise and set times by 
several minutes if not accounted for. The genesis for the algorithm that provides 
the solution for the rise and set times was provided by the work of William Zeleny 
[Ref. 4]. The actual script is reproduced in Appendix E, pages 184 to 187, and 
the associated handlers are in Appendix B, pages 130 to 136. 





D. LINK PERFORMANCE 


The performance of a communications link is a function of not only the 
equipment involved but also the range between the stations, atmospheric 
conditions, distance travelled in the atmosphere and the frequency utilized. This 
list is not all inclusive but is indicative of the parameters modeled by the program. 
In order to visualize these parameters and their effect on one another, a 
spreadsheet type format was used. Once the display is generated, the user can 
quickly modify the inputs and analyze the impact. The most difficult element to 
model was the attenuation of the signal due to rainfall. The prediction of this 
attenuation is dependent on the local climatic conditions of the ground station. 

The prediction of climatic conditions is not an easy venture. Rainfall rates 
and intensities and the altitudes from which the rain begins vary throughout the 
world. In order to simplify the process the Crane Global Rain model was adapted 
to the program. The Crane model was used because it is fairly accurate, easy to 
implement, and exists in many texts and handbooks that cover the topic of 
communications [Ref. 5, pp. 157-165]. The Crane model identifies eight major 
climate regions on the earth and establishes twelve different rainfall rates based 
upon the percentage of time over one year that the rainfall rate is exceeded. 

Selection of the Crane model provided the solution to one piece of the 
puzzle. The second problem was identifying which climate region corresponded 
to the geographic location of the ground station in question. The solution was to 
trap the system message "mouseUp" on a button that identified the climate region. 
The buttons that contain this script overlay a global map of the earth. This 
particular card is provided to the user for entry of the ground station directly on 
the screen. The card and associated map and buttons were adapted from the 
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work of Charles Howard [Ref. 6]. The scripts that calculate the rain attenuation 
are in Appendix E, pages 189 to 191, and the associated handlers are in Appendix 
C. 
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rV. RECOMMENDATIONS AND CONCLUSIONS 


A. RECOMMENDATIONS 

The program developed for this thesis models the satellite communications 
element of a space system. Additional topic areas that for communications 
systems include: 

• Signal attenuation due to atmospheric conditions such as: atmospheric 
dust, presence of clouds and fog. and smoke. 

• Communications via relay satellites 

• Modelling the actual satellite antenna characteristics and resultant satellite 
footprint. 

• Doppler shift induced by satellite motion 

• Spread spectrum technology 

• Digital coding, bit error rates and coding gains 

These are areas of concern that are important in understanding how a 
satellite communications system works. 

Additional space system topics that would complement this thesis are: 

• Ascent trajectory from launch to orbital insertion 

• Effects of orbital perturbations 

• Satellite subsystem breakdown and subsystem operation for a generic 
three axis or spin stabilized satellite. 

• Control and tasking of a satellite or satellite constellation. 

These areas of interest could be developed as separate modules of the original 
program and, utilized as a whole, would provide valuable education in the 
operation of a space system. 
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B. CONCLUSION 

The program developed for this thesis demonstrates that educational tools 
can be developed that provide comprehensive insight into the operation of a 
complex system. The interactive design of the program forces the user to become 
involved with the process, thus learning by doing. The object-oriented like 
nature of HyperCard and the included on-line help allow the user to operate the 
program with minimal training. The specific topic of the program attempts to 
remedy an educational shortfall in an increasingly vital area. 
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APPENDIX A; STACK CARDS 
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Orbital Info Ground Station Link Info 
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Orbital Info Ground Station Link Info 
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Orbital Elements Ground Station Link Info 
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Orbital Elements Ground Station Link Info 










































Orbital Info Ground Station Link Info Ground View 
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Orbital Info Ground Station Link Info Ground Trace Compute Rise and Set Print Card 
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Noise Bandwidth Print Card Ideal Budget Full Budget Rain Losses Jamming Losses Xmit Losses 
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Noise BanchAidth Print Card Ideal Budget Full Budget Rain Losses Jamming Losses Xmit Losses 
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Noise Bandwidth Print Card Ideal Budget Full Budget Rain Losses Jamming Leases Xmit Losses 















































Orbital Info Ground Station Link Info i!i!iiiiiiiii!i!iiiii!l buttOn belOW the Selection. 





























































Orbital Info Ground Station Link Info button bclOW the Selection. 
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Orbital Info Ground Station Transmitter 
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Orbitdl Info Ground Station Antenna 
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loise Band\A/idth Print Card Link Info Full Budget Ram Losses Jamming Losses Xmit Losses 
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Noise Bandwidth Print Card Ideal Budget Full Budget Rain Losses Jamming Losses Xmit Losses 
















































39 


Noise Bandwidth Print Card Ideal Budget Continue Rain Losses Jamming Losses Xmit Losses 
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loise Bandwidth Print Card Ideal Budget Continue Rain Losses Jamming Losses Xmit Losses 
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Noise Bandwidth Print Card Ideal Budget Uplink Budget Rain Losses Jamming Losses Xmit Losses 










































































Orbital Info Ground Station Link Info Continue Rise and Set Time Step 
































































































Select a map for view and if required select 'Ground Swath' to display 
the area in the satellites view based upon the ground stations antenna 
elevation. 



Orbital Info Ground Station Link Info Plot Track Rise and Set Time Step Review Erase 
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Print Card Ground Trace 
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Orbital Info Ground Station Link Info Print Cardlii Elevation: |l 50.44 ll Elevation: | 1 4.03 
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Print Card Ground Trace 






























Print Card Ground Trac« 



























49 


Print Card Ground Trace 
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Print Card Ground Trace 
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Print Card Ground Trace 
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Print Card Ground Trace 
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Print Card Ground Trace 
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Ground Trace 




























Print Card Ground Trace 
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Print Card Ground Trace 
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Stack Info |j|i Stack Map ||| Link [HI Budget |||| Bandwidth 
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Stack Info i|| Stack Map |||j Budget |!|1 Losses R Xmit Losses ily Rain Losses 
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Stack Info H!|| Stack Map || Budget Losses fl Xmit Losses |il Rain Losses 
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Stack Info ||l|| Stack Map liH Orbital Ij Ephemeris |{1 a & e ||n Ha & Hp ||| 'C Elements 
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le formula for the true antenna elevation (h) is as follows: 
h= arctan[(sinhM - R/r)/coshaa] 

! 'R' is the radius of the earth corrected for oblateness (Km), 'r' is the radius of the satellite 
54 Km for a geostationary satellite) and 'hoo' is the satellite's elevation above the equator. 



Stack Info HI Stack Map ||| Orbital |!|j Ephemeris f| Geo HI Ground View || Rise & Set 


































Stack Info y!|| Stack Map HU Link Hy Orbital ^ Ground HltGround Tracelli Rise & Set 


























114 





























115 



























116 


Stack Info J!y Stack Map na Link fil Orbital |i Ground uliGround Tracejl Rise & Set 
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APPENDIX B: STACK SCRIPT 


Scnpt of Slack "ENR\NCED SATELLITE COMML'NICATIONS ANALYSIS PROGILAM (ESCAP)" 


-TITLE; 

- ALTHOR: 

- DATE: 

- REVISED: 

-- DESCRIPTION: 


Enhanced Satellite Communications Analysis Program 
Kevm R. .Andersen 
21 \LARCH 1991 
8 September 1991 

This program is written in partial fulfillment of the 
requirements for the degree of Master of Science 
(Systems Technology) from the Naval Postgraduate School. 
Monterey, C.A The program has not been verified! 


on opens tack 

global orbitPage,groundPage.commPage,begin4nuJ^e,c,dBk/2d.d2r,we 

global earth_eN’oise,TIVEosses 

put false into orbiiPage 

put false into groundPage 

put false into commPage 

put false into Noise 

put false into TIV 

put false into Losses 

put true into begin 

put 398601.2 into mu 

put 6378 into Re 

put 2 997925* 10''8 into c 

put -228.599 into dBk 

put 180/pi into r2d 

put pi/180 into d2r 

put 00007292115856 into we 

put 0.081992 into earth_e 

set cmdChar of menultem 2 of menu "Options” to D 
end opens tack 


function FreqToWavc freq 
global c 

put c'(freq*l(y'9) into wave 
return wave 
end FreqToWave 


function log s 
put ln(s)/In(lO) into it 
return it 
end log 


function num s 
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put e.\p(s 4342944) into it 
return it 
end num 


function aSin sinAng 
put sqrt( 1 - sin-4ng*siiL4ng) into cosAng 
if cosAng o 0 then 
put Atan(sin.\ng cosAng) into ang 
else 

put siiL\ng*pi abs(2*sin.Ang) into ang 
end if 
return ang 
end aSin 


function aCos cos.\ng 
if cos.Ang o 0 then 
put sqrt( 1 -cosAng*cos.AQg) into sirtAng 
put sinAng'Cos,\ng into lanAng 
put alan(tanAng) into ang 
if ang < pi then 
put ang H- pi into ang 
end if 
else 

put pi 2 into ang 
end if 
return ang 
end aCos 


function aTan2 \,y 
put sqrt(x*x y‘y) X into denom 
if denom > 0 then 
put 2*aTan(y denom) into ang 
else 

put pi into ang 
end if 
return ang 
end aTan2 


function GeodedicLat Gial 
put 0 081992 into e 
put aian(taD(Glat)/(l-e^2)) into GeoLat 
return GeoLat 
end GeodedicLat 


funchon GeodedicR GeoLat 
put 0 081992 into e 
put 6378 4 into a 

put a*sqrt( l-e'2*sm(GeoLat)''2) into R 
return R 
end GeodedicR 












function SlantRange r Jie,true_el 
put r''2 - Re''2*(co8(tnie_el)>'2 into ptl 
put Re*sin(tnje_el) into pt2 
put sqrt(ptl) - pt2 into SR 
return SR 
end SlanlRange 


function Azimuth del_!on.Glat,satLat 
put cos(Glat)*tan(satLat) - sin(Glat)*cos(del_loo) into denom 
put sin(del_lon) into num 
if satLat = Glat then 
if deljon < 0 then 
put pi 2 into ang 
put ang* 180/pi into angDeg 
else u deljon > 0 then 
put 3*pi 2 into ang 
put ang* 180 pt into angDeg 
end if 

else if denom = 0 then 
put "Zenith" into angDeg 
else 

put atan(-num denom) into ang_rough 
if num < 0 and denom < 0 then 
put pi -i- ang_rough into ang 
else if num > 0 and denom < 0 then 
put pi + ang_rough into ang 
else if num > 0 and denom > 0 then 
put 2*pi ang_rough into ang 
else if num = 0 and denom <0 then 
put pi into ang 
else 

put ang_rough into ang 
end if 

put ang" 180'pi into angDeg 
end if 

return angDeg 
end Azimuth 


function 1 imeChange tune 
put the length of time into x 
if last char of tiine is ”M" then 
if char (x - 1) of time is T" then 
if char 2 of time is " " then 
put char 1 of time +■ 12 into HH 
put char 3 to 4 time into MM 
else if char 2 of time is "2' then 
put char 1 to 2 of time into HH 
put char 4 to 5 of time into MM 
else 

put char 1 to 2 of Ume -t- 12 into HH 
put char 4 to 5 of time into MM 
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end if 

else if char 2 of time is " then 
put "0" & char 1 of time into HH 
put char 3 to 4 of time into MM 
else if char 2 of time is "2" then 
put ”00" into HH 
put char 4 to 5 of time into MM 
else 

put char 1 to 2 of time into HH 
put char 4 to 5 of time into MM 
end if 

else if x = 4 then 
pul "0" & char 1 of time into HH 
put char 3 to 4 of time into VfM 
else 

put char 1 to 2 of time into HH 
put char 4 to 5 of time into MM 
end if 

put HH & & MM into Time24 

return Time24 
end TimeChange 


on Newtoo_Raphson 
global E.tjmeanMotion.ecc 

-- Newton Raphson solution to the Eccentric Anomaly 
put I into dE 
repeat while abs(dE) > .01 
put t - meaiLMotion*(E - ecc*sin(E)) into f 
put -meanMotiou*( 1 - ecc*cos(E)) into df 
put -f df into dE 
put E + dE into E 
end repeat 

end Newton_Raphsoo 


on MaxLonCheck 

global lon.GlonJonVjna-xLonJonCk.GlonCk 
global lonVckjnaxLonCkJlotType>lap 
if PlotType is "Sub Satellite" then 
put Ion into 1 

else if PlotType is "Ground Site" then 
put Glon into 1 

else if PlotType is "Field of View" then 
put lonV into 1 
end if 

if Map is "North Pacific" then 
if 1 < 0 then 
put 2*pi + 1 into ICk 
else put 1 into IGt 
put 2*pi + maxLon into maxLonCk 
else if Map is "South Pacific" then 
if 1 < 0 then 
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put 2*pi + I into ICk 
else put 1 into ICk 
put 2*pi maxLon into inaxLonCk 
else 

put 1 into ICk 

put ma^Lon into maxLonCk 
end if 

if PlotType is "Sub Satellite" then 
put ICk into lonCk 
else if PlotType is "Ground Site" then 
put ICk into GlonCk 
else if PlotType is "Field of View" then 
put ICk into lonVck 
end if 

end MaxLonCbeck 


on Swath_Width 

global latJonjt4'Jie^t_el.tl,t2.dphi.el.e2,e3 

global nl,n24i3,pl,p2,p3.earth_e,cEl4El 

put 0,081992 into earth_e 

put sinflnt) into sLat 

put cosflat) into cLat 

put sinflnn) into sLon 

put cosflon) into cLon 

put sin(ant_el) into sB 

put cos(ant_el) into cH 

put cLat*cLon into pi 

put cLat*sLon into p2 

put sLat into p3 

-- Get Sub Satellite R 

- put atan(tanClat)/(l -earth_e^2)) into GeoLat 
-- put Re*sqrt(l - earth_e^2*sin(G€oLat)^2) into R_Obloag 
if abs(z) is not 1 then 
put sqrt(pl''2 + p2''2) into length 
- Find the east unit vector 
put -p2/length into el 
put pi length into e2 
put 0 into e3 

-- Find the north unit vector 
put -p3*e2 into nl 
put p3*el into n2 
put pl*e2 - p2*el into n3 
else 

put 1 into el 
put 0 into e2 
put 0 into e3 
put 0 into nl 
put 1 into n2 
put 0 into n3 
end if 

put SlantRange(rJlennt_el) into range 


132 






put Re + range’sH into tl 
put range*cB into t2 
put pi/15 into dphi 
end Swath_Width 


on Interpolate 

global PlotType.xS.yS.oldXs.oldYs.yVj^V.oldYv.oldXv 
if PlotType is "Sub Satellite" then 
put \S into \N 
put yS into yN 
put oldXs into xO 
put old\'s into yO 

else if HotType is "Field of View" then 
put xV into xN 
put yV into yN 
put oldXv into xO 
put oldY V into yO 
end if 

if xN - xO < 0 then 
put 507 + xN into x 1 
put (yN-yO) (xl-xO) into m 
put yO + m*(509 - xO) into y 
drag from roundfxO) jound(yO) to 509jound(y) 
drag from 2jx)und(y) to round(,xN)/ound(yN') 
end if 

if xN - xO > 0 then 
put -507 + xN into x 1 
put (yN-yO)/(xl-xO) into m 
put yO + m*(2 - xO) into y 
drag from round(xO) jound(yO) to 24‘ound(y) 
drag from 509jound(y) to round(xN)/ound(yN') 
end if 

end Interpolate 


on OrbitXform 

global asnE)eg,perDeg 4 ncDcg.GHAdeg.ex.ey,ez,vx,vy,vz£^inE,cosE 
global d2rj^,t04neanMotion.ecc,param3 
-- Convert angles in deg to angles in radians 
if perDeg <180 then put pcrDeg+360 into perDeg 
if perDeg > 180 then put perDeg - 360 into perDeg 
put pi/180 into d2r 
put asnDeg*d2r into asn 
put perDeg*d2r into per 
put incDeg*d2r into inc 
put GHAdcg*d2r into GHA 
- Get components of unit vecton 
-- Unit vector pointing toward ascending node (n) 
put cosfasn + GHA) into nx 
put sinfasn + GHA) into ny 
put 0 into nz 

-- Unit vector normal to the plane (h) 
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put sin(inc)*sm(asn + GHA) into hx 
put -sin(inc)*cos(asn + GHA) into hy 
put cos(inc) into hz 

- Get vector in plane perpendicular to n, given by axb 
put hy*nz - hz*ny into ux 

put hz*nx - hx*nz into uy 

put h,x*ny - hy*nx into uz 

- Get unit vector poinung toward perigee (e) 

put cos(per) into cosPer 

put sin(per) into sinPer 

put cosPer*nx + sinPer*ux into ex 

put cosPer*ny + sinPer*uy into ey 

put cosPer*nz + sinPer*uz into ez 

-- Get vector perpendicular to e and in plane of orbit, v is 

- in the direction of the Semi-Latus Rectum (param) 
put hy*ez - h 2 *ey into vx 

put hz*ex - hx*ez into vy 
put hx*ey - hy*ex into vz 
put (ecc + cos(-per))/(l + ecc*cos(-per)) into cosE 
put param(l+ecc*co8(-per)) into tO 
put rO*sin(-per)/(a*sqrt(l-€cc*ecc)) into sinE 
put aTan2(cosE,sinE) into E 
put meanMotion*(E - ecc*sin(E)) into tO 
end Orb'tXfonn 


on PlotMap 

global lonJat.Glon.GlatJonV JatV ,aLon.aLat.bLoo.bLat.cLon,cLat 
global xS .yS .gxS .gyS ^V ,yV >lapPlotType 
if PlotType is "Sub Satellite" then 
put Ion into longitude 
put lat into latitude 
else if PlotType is "Ground Site" then 
put Glon into longitude 
put Glat into latitude 
else if PlotType is "Field of View" then 
put lonV into longitude 
put latV into latitude 
end if 

if Map is "Global Map" then 
put aLoo bLon*Iongitude into x 
put aLat -t- bLat*iatitude mto y 
else if Map is "North Pole" then 
put 255 -t- siD(-longitude)*(pi/2 - latitude)*296.028 into x 
put 172 - ooa(-longitude)*(pi/2 - latitude)*296.028 into y 
else if Map is "South Pole" then 
put 255 + sin(]ongitude)*sin(pi/2 + latitude)*247.327 into x 
put 124 - cos(1ongitude)*sin(pi/2 + latitude)*247 327 into y 
else if Map is "North Pacific* then 
if longitude < 0 then 
add 2*pi to longitude 
end if 
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put aLon + bLon*(longitude - cLon) into x 
put aLat + bLat*(latitude - cLat) into y 
else if Map is "South Pacific" then 
if longitude < 0 then 
add 2*pi to longitude 
end if 

put aLon + bLon*(longitude - cLon) into x 
put aLat bLat*(lautude - cLat) into y 
else 

put aLon + bLon*Oongitude - cLon) into x 
put aLat + bLat’Oatitude - cLat) into y 
end if 

if PlotType is "Sub Satellite" then 
put X into xS 
put y into yS 

else if PlotType is "Ground Site" then 
put X into gxS 
put y into gyS 

else if PlotType is "Field of View" then 
put X into xV 
put y into yV 
end if 

end PlolMap 


function Lat V 
put 160 - V into t 
if V <= 160 then 

put t*(0.76923 - 226595*(t. 160)) into Glat 
else if V > 160 then 

put t*(0.76923 + 226595*(t'160)) into Glat 
end if 
return Glat 
end Lat 


function PositLat Glat 
put Glat*( 180/pi) into GlatDeg 
if GlatDeg >= 0 then 
put 0 226595' 160 into a 
put -0,76923 into b 
put GlatDeg into c 
put (-b - sqrt(b^2-4*a*c))/(2*a) into t 
else if GlatDeg < 0 then 
put 0 226595/160 into a 
put 0.76923 into b 
put -GlatDeg into c 
put ( b -t- sqrt(b^2-4*a*c))/(2*a) into t 
end if 

put 160 -1 into V 
return round(V) 
end PositLat 
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function PositLon Glon 
put Glon*467'(2*pi) -t- 254,5 into H 
return roundfH) 

-- put (H - 254.5)*(2*pi)/467 into Glon 
end PositLon 







APPENDIX C: BACKGROUND SCRIPTS 


Scnpt of Background "General" 


function FindRegion region 
if first char of region is "D" then 
if char 2 of region > "3" then 
put "D2" into rainRegion 
else put char 1 to 2 of region into rainRegion 
else 

put char 1 of region into rainRegion 
end if 

return rainRegion 
end FindRegion 


on FillRegion 
global rainRegion 
lock screen 

-- this section loads the surface point rain rate numbers into the 12 fids 
- corresponding to the 12 ^s of rainfall per year based on the selected 


- rain climate region 
if ramRegioo="A" then 


put 

"A" into cd fid "Region 

put 

28 5 into cd fid 4 

put 

21 into cd nd S 

put 

13.5 into cd fid 6 

put 

10 0 into cd fid 7 

put 

7 into cd fid 8 

put 

4 into cd fid 9 

put 

2.5 into cd fid 10 

put 

15 into cd fid 11 

put 

0 7 into cd fid 12 

put 

0 4 into cd fid 13 

put 

0 1 into cd fid 14 

put 

0 0 into cd fid 15 

else 1 

f rainRegioa="B" then 

put 

"B" into cd fid "Region 

put 

57 5 into cd fid 4 

put 

44 into cd fid 5 

put 

28 5 into cd fid 6 

put 

19 5 into cd fid 7 

put 

13 5 into cd fid 8 

put 

8 into cd fid 9 

put 

5 2 into cd fid 10 

put 

3 4 into cd fid 11 
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put 19 into cd fid 12 
put 17 into cd fid 13 
put 13 into cd fid 14 
put 0 3 into cd fid 15 
else if rainRegion="C" liien 
put "C" into cd fid "Region" 
put 78 into cd fid 4 
pul 62 into cd fid 5 
put 41 into cd fid 6 
put 28 into cd fid 7 
put 18 into cd fid 8 
put 11 into cd fid 9 
put 7 2 into cd fid 10 
pul 4 8 into cd fid 11 
put 2.7 into cd fid 12 
put 18 into cd fid 13 
put I I into cd fid 14 
put 0.5 into cd fid 15 
else if rainRegion="Dr then 
put "Dl" into cd fid "Region" 
put 90 into cd fid 4 
put 72 into cd fid 5 
put 50 into cd fid 6 
put 35 5 into cd fid 7 
put 24 into cd fid 8 
put 14.5 into cd fid 9 
put 9 8 into cd fid 10 
put 6 4 into cd fid 11 
put 3 6 into cd fid 12 
put 2.2 into cd fid 13 
put 12 into cd fid 14 
put 0 0 into cd fid 15 
else if rainRegion="D2" then 
put "D2" into cd fid "Region" 
put 108 into cd fid 4 
put 89 into cd fid 5 
put 64 5 into cd fid 6 
put 49 into cd fid 7 
put 35 into cd fid 8 
put 22 into cd fid 9 
put 14 5 into cd fid 10 
put 9 5 into cd fid 11 
put 5 2 into cd fid 12 
put 3 into cd fid 13 
put 1 5 into cd fid 14 
put 0 0 into cd fid 15 
else if rainRcgion="D3" then 
put "D3" into cd fid "Region" 
put 126 into cd fid 4 
put 106 into cd fid 5 
put 80 5 into cd fid 6 
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put 63 into cd fid 7 
put 48 into cd fid 8 
put 32 into cd fid 9 
put 22 into cd fid 10 
put 14 5 into cd fid 11 
put 7 8 into cd fid 12 
put 4 ■' into cd fid 13 
put 1 9 into cd fid 14 
put 0 0 into cd fid 15 
else if rainkegion^T" then 
put "E" into cd fid "Region" 
put 165 into cd fid 4 
put 144 into cd fid 5 
put 118 into cd fid 6 
put 98 into cd fid 7 
put 78 into cd fid 8 
put 52 into cd fid 9 
put 35 into cd fid 10 
put 21 into cd fid 11 
put 10 6 into cd fid 12 
put 6 into cd fid 13 
put 2.9 into cd fid 14 
put 0 0 into cd fid 15 
else if raiaRegion="F" then 
put "F" into cd fid "Region" 
put 66 into cd (Id 4 
put 51 into cd fid 5 
put 34 into cd fid 6 
put 23 into cd fid 7 
put 15 into cd fid 8 
put 8 3 into cd fid 9 
put 5 2 into cd fid 10 
put 3 1 into cd fid 11 
put 14 into cd fid 12 
put 0 7 into cd fid 13 
put 0 2 into cd fid 14 
put 0 0 into cd fid 15 
else if rainRegioa="G" then 
put "G" into cd fid "Region" 
put 185 into cd nd 4 
put 157 into cd nd 5 
put 120.5 into cd Hd 6 
put 94 into cd nd 7 
put 72 into cd nd 8 
put 47 into cd nd 9 
put 32 into cd nd 10 
put 21 8 into cd nd 11 
put 12 2 into cd nd 12 
put 8 into cd nd 13 
put 5 into cd nd 14 
put 18 into cd nd 15 
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else 

put "TI" into cd fid "Region" 
put 253 into cd fid 4 
put 220 5 into cd fid 5 
put 178 into cd fid 6 
put 147 into cd fid 7 
put 119 into cd fid 8 
put 86 5 into cd fid 9 
put 64 into cd fid 10 
put 43 5 into cd fid 11 
put 22 5 into cd fid 12 
put 12 into cd fid 13 
put 5 2 into cd fid 14 
put 12 into cd fid 15 
end if 

end FillRegion 


function calculateOCisothenn Glat.Case 
put abs(Glat) into Latitude 

if hilite of cd btn 7 = true or hilite of cd btn 8 = true or -> 

-- hilite of cd btn 9 = true then put "1" into Case 

-- else if hilite of cd btn 10 = true or hilite of cd btn 11 = true or 

- hilite of cd btn 12 = true then put "2" into Case 

-- else if hilite of cd btn 13 = true or hilite of cd btn 14 = true or 
-- hilite of cd btn 15 = true then put "3" into Case 

- else if hilite of cd btn 16 = true or hilite of cd btn 17 = true or -i 
-- hilite of cd btn 18 = true then put "4" into Case 

if latitude>=0 and latitude<=20 then 
if Case="r then put 5.4 into H 
if Case="2" then put 5 2 into H 
if Case="3" then put 4 85 into H 
if Case="4" then put 4 5 into H 
end if 

if latitudo=21 and latitude<=30 then 
if Case="l" then put 5.3 into H 
if Casc="2" then put 5 into H 
if Case="3" then put 4 5 into H 
if Case="4" then put 4 into H 
end if 

if latitude>=31 and ladtude<=35 then 
if Case=:"l" then put 5 into H 
if Case="2" then put 4.5 into H 
if Case="3" then put 3.9 into H 
if Case="4" then put 3.2 into H 
end if 

if latitiide>=36 and latitude<=40 then 
if Case="r then put 4.7 into H 
if Case="2" then put 4 into H 
if Case="3'‘ then put 3 3 into H 
if Case="4" then put 2 4 into H 
end if 


140 







if latitude>=41 and latitude<=45 then 
if Case="l" then put 4.4 into H 
if Case="2" then put 3 6 into H 
if Case="3" then put 2.7 into H 
if Case="4" then put 18 into H 
end if 

if laumde>=46 and latitude<=50 then 
if Case="l" then put 4 into H 
if Case="2" then put 3.2 into H 
if Case='3" then put 2.2 into H 
if Case="4" then put 1.2 into H 
end if 

if latitude>=51 and latitude<=55 then 
if Case="l" then put 3.6 into H 
if Case="2" then put 2.7 into H 
if Case="3" then put 1.7 into H 
if Casc="4" then put 7 into H 
end if 

if latitude>=56 and latitudec^^ then 
if Case="l" then put 3 1 into H 
if Case="2" then put 2.2 into H 
if Case=’*3" then put 1J into H 
if Case="4" then put .4 into H 
end if 

if latitude>=61 and Iatitude<=65 then 
if Cas€="r then put 2.7 into H 
if Case="2" then put 18 into H 
if Case="3" then put I into H 
if Casc="4" then put 2 into H 
end if 

if Iatitude>=66 then 
if Case="l" then put 2.3 into H 
if Cas€="2" then put 16 into H 
if Case="3" then put .8 into H 
if Case="4" then put .01 into H 
end if 
return H 

end calculateOCisotheim 


functioo FindRate rainRegioaJViocnt 

- this section loads the surface point rain rate numbers into the 12 fids 

- corresponding to the 12 %s of rainfall per year based on the selected 

- rain climate region 
if rainRegioo=”A* then 

if Percent <= 0.002 then put 28.5 into Rate 
else if Percent <= 0.005 then put 21 into Rate 
else if Percent <= 0.01 then put 13.5 into Rate 
else if Percent <= 0 02 then put 10 0 into Rate 
else if Percent <= 0.05 then put 7 into Rate 
else if Percent <= 0.1 then put 4 into Rate 
else if Percent <= 0.2 then put 2.5 into Rate 
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else if Percent <= 0 5 then put 15 into Rate 

else if Percent <= 1.0 then put 0.7 into Rate 

else if Percent <= 2 0 then put 0 4 into Rate 

else put 0 1 into Rate 
else if rainRegion="B" then 
if Percent <= 0 002 then put 57 5 into Rate 
else if Percent <= 0 005 then put 44 into Rate 
else if Percent <= 0 01 then put 28.5 into Rale 
else if Percent <= 0 02 then put 19 5 into Rate 
else if Percent <= 0 05 then put 13 5 into Rate 
else if Percent <= 0 1 then put 8 into Rate 
else if Percent <= 0 2 then put 5 2 into Rate 
else if Percent <= 0 5 then put 3 4 into Rate 
else if Percent <= 1.0 then put 1.9 into Rate 
else if Percent <= 2.0 then put 1.7 into Rate 
else put 13 into Rate 
else if rainRegion="C" then 
if Percent <= 0.002 then put 78 into Rate 
else if Percent <= 0.005 then put 62 into Rate 
else if Percent <= 0.01 then put 41 into Rate 
else if Percent <= 0 02 then put 28 into Rate 
else if Percent <= 0.05 then put 18 into Rate 
else if Percent <= 0 1 then put 11 into Rate 
else if Percent <= 0 2 then put 7 2 into Rate 
else if Percent <= 0 5 then put 4 8 into Rate 
else if Percent <= 10 then put 2.7 into Rate 
else if Percent <= 2.0 then put 18 into Rate 
else put 11 into Rate 
else if rainRegion="Dr then 
if Percent <= 0 002 then put 90 into Rate 
else if Percent <= 0 005 then put 72 into Rate 
else if Percent <= 0 01 then put 50 into Rate 
else if Percent <= 0 02 then put 35.5 into Rate 
else if Percent <= 0 05 then put 24 into Rate 
else if Percent <= 0 1 then put 14 5 into Rate 
else if Percent <= 0 2 then put 9 8 into Rate 
else if Percent <= 0 5 then put 6.4 into Rate 
else if Percent <= 10 then put 3.6 into Rate 
else if Percent <= 2.0 then put 2.2 into Rate 
else put 1.2 into Rate 
else if rainRegion="D2" then 
if Percent <= 0.002 then put 108 into Rate 
else if Percent <= 0.005 then put 89 into Rate 
else if Percent <= 0.01 then put 64.5 into Rate 
else if Percent <= 0.02 then put 49 into Rate 
else if Percent <= 0.05 then put 35 into Rate 
else if Percent <= 0.1 then put 22 into Rate 
else if Percent <= 0 2 then put 14.5 into Rate 
else if Percent <= 0.5 then put 9.5 into Rate 
else if Percent <= 10 then put 5 2 into Rate 
else if Percent <= 2 0 then put 3 into Rate 
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else put 1.5 into Rate 
else if rainRcgion="D3" then 
if Percent <= 0002 then put 126 into Rate 
else if Percent <= 0.005 then put 106 into Rate 
else if Percent <= 0 01 then put 80 5 into Rate 
else if Percent <= 0 02 then put 63 into Rate 
else if Percent <= 0 05 then put 48 into Rate 
else if Percent <= 0 1 then put 32 into Rate 
else if Percent <= 0.2 then put 22 into Rate 
else if Percent <= 0 5 then put 14 5 into Rate 
else if Percent <= 10 then put 7 8 into Rate 
else if Percent <= 2.0 then put 4.7 into Rate 
else put 19 into Rate 
else if rainRegion="E" then 
if Percent <= 0 002 then put 165 into Rate 
else if Percent <= 0 005 then put 144 into Rate 
else if Percent <= 0 01 then put 118 into Rate 
else if Percent <= 0 02 then put 98 into Rate 
else if Percent <= 0 05 then put 78 into Rate 
else if Percent <= 0 1 then put 52 into Rate 
else if Percent <= 0 2 then put 35 into Rate 
else if Percent <= 0 5 then put 21 into Rate 
else if Percent <= 10 then put 10 6 into Rate 
else if Percent <= 2 0 then put 6 into Rate 
else put 2.9 ''to Rate 
else if rainP _,4on="F" then 
if Perce . <= 0 002 then put 66 into Rate 
else it Percent <= 0 005 then put 51 into Rate 
else if Percent <= 0 01 then put 34 into Rate 
else if Percent <= 0 02 then put 23 into Rate 
else if Percent <= 0 05 then put 15 into Rate 
else if Percent <= 0 1 then put 8 3 into Rate 
else if Percent <= 0 2 then put 5 2 into Rate 
else if Percent <=0 5 then put 3.1 into Rate 
else if Percent <= 10 then put 14 into Rate 
else if Percent <= 2 0 then put 0 7 into Rate 
else put 0.2 into Rate 
else if rainRegion="G" then 
if Percent <= 0 002 then put 185 into Rate 
else if Percent <= 0.005 then put 157 into Rate 
else if Percent <= 0.01 then put 120.5 into Rate 
else if Percent <= 0.02 then put 94 into Rate 
else if Percent <= 0 05 then put 72 into Rate 
else if Percent <= 0.1 then put 47 into Rate 
else if Percent <= 0.2 then put 32 into Rate 
else if Percent <= 0.5 then put 21.8 into Rate 
else if Percent <= 10 then put 12.2 into Rate 
else if Percent <= 2 0 then put 8 into Rate 
else put 5 into Rate 
else 

if Percent <= 0 002 then put 253 into Rate 
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else if Percent <= 0 005 then put 220.5 into Rate 
else if Percent <= 0.01 then put 178 into Rate 
else if Percent <= 0.02 then put 147 into Rate 
else if Percent <= 0,05 then put 119 into Rate 
else if Percent <= 0.1 then put 86 5 into Rate 
else if Percent <= 0 2 then pmt 64 into Rate 
else if Percent <= 0 5 then put 43.5 into Rate 
else if Percent <= 10 then put 22 5 into Rate 
else if Percent <= 2.0 then put 12 into Rate 
else put 5 2 into Rate 
end if 
retuHi Rate 
end RndRate 


fimcuon FindRainAttenuauon Glat£l J^req.CaseJiateJ’ercentJiegion 
if Freq < 8 5 then 
put zero into atten 
else if Rale is zero then 
put zero into atten 
else 

put calculateOCisothenn(Glal.Case) into FI 
put □ 57 29578 into E 

if freq>=2.9 and freq<54 then put (4.21*(10'^(-S)))*(freq''2.42) into a 
else put (4 09*(l0^(-2)))*(freq'' 699) into a 
if freq>=8 5 and freq<:25 then put 1.41*(freq''(- 0779)) into b 
else put 2 63*(freq''(- 272)) into b 
if E< 1745329 then --<10° in radians 
put 8500*9in(E) into it 

put 9qrt(85O0*850O*sin(E)*sin(E)+(n000*Fr)+(H*Fr))-it into L 
put cos(E)*L{8500+H) into it 
put asin(il) into phi 
put 8500*phi into bigD 
else 

put H tan(E) into bigD 
put bigD cos(E) into L 
end if 

put 3 8-( 6*ln(Rate)) into d 
put 2 3*(Rate''(- 17)) into x 
put 026-(.03*ln(Rate)) into v 
put ln(x*enp(v*d))/d into u 
put a*(Rate^b)*L/bigD into it 
if btgD>=0 and bigl><^ then 
put it*cxpl(u*b*bigD)/(u*b) into atten 
else if d<=bigD and bigD<=22.5 then 
put expl(u*b*d)/(u*b) into product 1 
put (x''b)*(exp(v*b*d))'(v*b) into pToduct2 
put (x''b)*(exp(v*b*bigD))/(v*b) into product3 
put it*(productl -product2+product3) into atten 
els<“ if bigD > 22 5 then 
put 22 5 bigD'Percent into Percent 1 
put FindRate(RegionPercent 1) into Rate I 


144 






put 3.8-(.6*ln(Rate)) into d 
put 2.3*(Rate'(-. 17)) into x 
put 026-( 03*ln(Rate)) into v 
put ln(x*exp(v*d))/d into u 
put a*(Rate''b)*L'bigD into it 
put expl(u*b*d)/(u*b) into product I 
put (x''b)*(exp(v*b*d))/(v*b) into pioduct2 
put (x^b)*(exp(v *b*bigD))/(v*b) into producG 
put it*(productl -product2+product3) into atten 
end if 
end if 
return atten 

end RndRain-Atlenuation 
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APPENDIX D: CARD SCRIPTS 


Scnpt of Card "Stack Info" 


on openCard 

global orbvtPage. groundPage 
if orbitPage and groundPage is true then 
hide cd btn id 16 
else 

show cd btn id 16 
end if 

end openCard 


Script of Card "^Tiat 'I'ou Know of Orbits" 


on openCard 

global orbitPage .groundPage 
lock screen 

vf orbitPage ts false then 
show cd btn id 15 
else if groundPage is false then 
show cd btn id 15 
else 

hide cd btn vd 15 
e: .if 

uiiiock screen 
end openCard 


Script of Card "Semimajor Axis Card" 


on OpenCard 

put "Enter the orbital information then click on 'Orbital Element3’"&&-' 
"to continue." into cd fid "Description" 
show cd fid "Description" 
select text of cd fid "a" 
endopenCanl 


Script of Card "Pengee and Apogee Card" 
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on openCard 

put "Enter the orbital information then dick on 'Orbital Hements'"&A-’ 
"to continue." into cd fid "Description" 
show cd fid "Description" 
select text of cd fid "pAlt" 
end openCard 


Script of Card "Charlie Hements Card" 


on openCard 

select text of cd fid "Sat#" 
end openCad 


Script of Card "Geostationary Card" 


on openCard 

global GeoSat,GeoSatLon,groundPage,orbitPage 
lock screen 

if groundPage is true then 
hide cd btn id 11 - Link Info Gray 
else 

show cd btn id 11 - Link Info Gray 
end if 

hide bg btn "Help Me" 
if GeoSat is false then 
hide cd btn "Satellite 1" 
hide cd btn "Satellite 2" 
else 

hide cd btn "Satellite 2" 
end if 

select text of cd fid "Sat Lon" 
unlock screen 
end OpenCard 


on closeCard 

global GeoSatLon,change,groundPagej',d2r/2d 
lock screen 
put 42164 into r 
show cd btn "Satellite 1" 
put cd fid "Sat Lon" into GeoSatLon 
if hilite of cd btn "West" is true then 
multiply GeoSatLon by -d2r 
else 

multiply GeoSatLon by d2r 
end if 

put GeoSatLon*507'(2*pi) -t- 256 into x 

set the location of cd btn "Satellite 1" to round(x).151 
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show bg b<n "Help Me" 
if change is true then 
put false into groundPage 
put false into change 
end if 

unlock screen 
end closeCard 


Senpt of Card "Orbital Dements" 


on openCard 
global orbitPage 
lock screen 

put true into orbitPage 
unlock screen 
end openCard 


Script of Card "Ground Station" 


on openCard 

global orbitPage,groundPage,GeoSat 
lock screen 
if GeoSat is true then 

- Prepare page for Geostationary option with 2 ground stations, 
show cd fid "Geo GS 1" 
show cd fid "Geo GS 2" 
show cd fid "Ground Station Latitude 2" 
show cd fid "Ground Station Longitude 2" 
show cd fid "Antenna Elevation 2" 
show cd btn "North 2" 
show cd btn "South 2" 
show cd btn "East 2" 
show cd btn "1^'est 2" 
show cd btn id 23 — Rise and Set Gray 
show cd btn id 40 - Ground View 
if orbitPage is true then 
hide cd btn id 27 - Link Info Gray 
else 

show cd btn id 27 — Link Info Gray 
end if 

put "Enter the latitude and longitude of your ground stations" &&-' 
"or click on 'Enter station on Map' .4130 enter the desired" &&-• 
"antenna elevation." &&-■ 

"Be sure to double check their latitude and" &&-• 

"longitude before continuing " into cd fid "Descnplion" 
show cd fid "Description" 
else 
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- Prqjare page for single ground station option, 
hide cd fid "Geo GS 1" 
hide cd fid "Geo GS 2" 
hide cd fid "Ground Station Latitude 2" 
hide cd fid "Ground Station Longitude 2" 
hide cd fid ".\ntenna Elevation 2" 
hide cd btn "North 2" 
hide cd btn "South 2" 
hide cd btn "East 2" 
hide cd btn "W'est 2" 
hide cd btn id 40 -- Ground View 
if orbitPage is true then 
hide cd btn id 23 -- Rise and Set Gray 
hide cd btn id 27 -- Link Info Gray 
hide cd btn id 24 -- Ground Trace Gray 
else 

show cd btn id 23 -- Rise and Set Gray 
show cd btn id 27 -- Link Info Gray 
show cd btn id 24 -- Ground Trace Gray 
end if 

put "Enter the latitude and longitude of your ground station" &&-> 
"or click on 'Enter station on Map' .\lso enter the desired" &&-> 
"antenna elevation" &&-• 

"Be sure to double check the latitude and" AA-" 

"longitude before continuing," into cd fid "Description" 
show cd fid "Description" 
end if 

put true into groundPage 
select text of cd fid "Ground Sution Latitude" 
unlock screen 
endopenCard 


on closeCard 

global ant_el.Glat,Glon.tinieZone.GeoSat,Glon2,Glat2.d2rj'2dnnt_el2 
global CardClosejegionjegionUpj’egionDown 
-- Get Ground Station Coordinates 
lock screen 

set lockMessages to true 
put cd fid "Antenna Elevation" into ant_elDeg 
put cd fid "Antenna Elevation 2" into ant_elDeg2 
put cd fid "Ground Stadon Ladtude" into GiatDeg 
put cd fid "Ground Stadon Longitude" into GIonDeg 
put ant_elDeg*d2r into ant_el 
if hilite of cd btn "West" is true then 
muidpiy GIonDeg by - I 
put GlonDeg*d2r into Glon 
put roundf Glon (pi' 12)) into dmeZone 
else 

put GlonDeg*d2r into Glon 
put-round(Glon (pt 12)) into dmeZone 
end if 
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if hilite of cd btn "South" is true then multiply GlatDeg by -1 

put GlatDeg*d2r into Glat 

go to cd "Ground Station Placement" 

put PosilLat(Glal) into V 

put PositLon(Glon) into H 

set the loc of cd btn "GS 1" to H,V 

hide cd btn "GS 1" 

set lockMessages to false 

pi true into CardClose 

click at H.V 

set lockMessages to true 
put false into CardClose 
show cd btn "GS 1" 
put region into regionUp 
put region into regiooDown 
go back 

if GeoSat is true then 
put ant_elDeg*d2r into ant_el 
put ant_elDeg2*d2r into ant_el2 
put cd fid "Ground Station Latitude 2" into GlatDeg2 
put cd fid "Ground Station Longitude 2" into GlonDeg2 
if hilite of cd btn “West 2" is true then 
multiply GlonDcg2 by -1 
put GlonDeg2*d2r into Glon2 
else 

put GlonDeg2*d2r into GIon2 
end if 

if hilite of cd btn "South" is true then multiply GlatDeg2 by 
go to cd "Ground Sution Placement" 
put GlatDeg2*d2r into Glat2 
put PositLat(Glat2) into V2 
put PositLon(Glon2) into H2 
set the loc of cd btn "GS 2" to H2,V2 
hide cd btn "GS 2" 
set lockMessages to false 
put true into CardClose 
click at H2.V2 
set lockMessages to true 
put false into CardOose 
show cd btn "GS 2" 
put region into regiooDown 
go back 
end if 

unlock screen 
set lockMessages to false 
enddoseCard 


Script of Card "Rise and Set" 
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oQopenCard 

global hourRequestjxriod.orbitsDayjiuinOrbits 
lock screen 

put hourRequest into T6 
convert TB to short time 

put ume<rhange<TB) && "Zulu" into line 2 of cd fid Time to Begin" 
put period into TP 
convert TP to short time 

put timeChangefTP) && "Hfl NfM" into line 2 of cd fid "Period" 
set numberFormat to "0 ##" 
put (86400 period) into numOrbits 
put numOrbits into line 2 of cd fid "Orbits" 
put 1 into cd fid "Begin" 
put 1 into cd fid "End" 
unlock screen 
select text of cd fid "Begin" 
end opeaCard 


Script of Card "Crround Station Placement" 


on openCard 
global GeoSat.GD2 
if GeoSat is false then 
hide cd btn "GS 2" 
hide cd btn "Second Ground Site" 
else if GeoSat is true then 
show cd btn "GS 2" 
show cd btn "Second Ground Site" 
end if 

put false into GD2 
end openCard 


on mouseL'p 

global ant_el,Glat,Glon,timeZone,Glat2,Glon2,GeoSat,GD2.d2rx2d.TlV 
global CardQose 
if CardClose is true then 
pass mouseL'p 
else 

if GeoSat is true then 
show- cd btn "GS 2" 
show cd btn "Second Ground Site" 
end if 

if the mouseH > 489 or the mouscH < 22 then 
answer "Qicked off the map! Try again.’ 
pass mouseL'p 
end if 

if the mouseV > 312 or the mouse< 0 then 
answer "Qicked off the map! Try again " 
pass mouseL'p 
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end if 

-- Get Ground Station Coordinates 
if GD2 is false then 

set the loc of cd bln "GS 1" to the dickLoc 
else if GD2 is true then 
set the loc of cd bin "GS 2" to the clickLoc 
show cd btn "GS 2" 
end if 
lock screen 

pul the mouseH into H 
put the mouseV into V 

-- since lautudes are distorted by the conformal mercator projection, 

- conversion of the vertical mouse dick location to a latitude on the 
-- map requires multiplication by a correcting factor which varies based 
-- on the latitude 
if GD2 is false then 
pul Lat(V) into Glat 
pul (H - 254 5)*(2*pi) 467 into Glon 
put Glon*r2d into GlonDeg 
pul Glat into GlatOeg 
multiply Glat by d2r 
set loclcVlessages to true 
go to cd "Ground Station” 
set numberFormat to "0 
if Glon < 0 then 
multiply GlonDeg by -1 

put GlonDeg into cd fid “Ground Station Longitude" 
set hilite of cd bm "West" to true 
set hilite of cd bm "East" to false 
multiply GlonDeg by - I 
put round(-Gloa (pi 12)) into timeZone 
else 

put GlonDeg into cd fid "Ground Station Longitude" 
set hilite of cd btn "West" to false 
set hilite of cd bm "East" to true 
pul -round(Glon/(pi'12)) into timeZone 
end if 

if Glat < 0 then 
multiply GlatDeg by -1 

put GlatDeg into cd fid "Ground Station Latitude" 
set hilite of cd bm "South" to true 
set hilite of cd bm "North" to false 
else 

put GlatDeg into cd fid "Ground Station Latitude" 
set hilite of cd bm "South" to false 
set hilite of cd btn "North" to true 
end if 

if GeoSat is true then 
go back 

set lockMessages to false 
end if 
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put false into TIV 
else if GD2 is true then 
Put Lat(V) into Glat2 
put (H - 254 5)*(2*pi) 467 into Glon2 
put Glon2*r2d into GlonDeg2 
put Glat2 into GlatDeg2 
multiply GIat2 by d2r 
set lockMessages to true 
go to cd "Ground Station" 
set numberFormat to "0 
if Glon2 < 0 then 
multiply GlonI>eg2 by -1 

put GlonDeg2 into cd fid "Ground Station Longitude 2" 
set hilite of cd btn "West 2" to true 
set hilite of cd btn “East 2" to false 
else 

put GlonDeg2 into cd fid "Ground Station Longitude 2" 
set hilite of cd bln "West 2" to false 
set hilite of cd btn "East 2" to true 
end if 

if Glai2 < 0 then 
multiply GlatDeg2 by -1 

put GlalDeg2 into cd fid "Ground Station Latitude 2" 
set hilite of cd btn "South 2" to true 
set hilite of cd btn "North 2" to false 
else 

put GlatDeg2 into cd fid "Ground Station Latitude 2" 
set hilite of cd btn "South 2" to false 
set hilite of cd btn "North 2" to utie 
end if 
end if 

set lockMessages to false 
unlock Screen 
end if 

end mousel'p 


Script of Card “I jnk Info" 


on openCard 
global GeoSat 
lock screen 

set hilite of cd bn "L'plink EIRP Unknown" to false 
set hilite of cd btn "Satellite G T Unknown" to false 
set hilite of cd btn "Satellite EIRP L’nknown" to false 
set hilite of cd btn "Downlink G T Unknown" to false 
if GeoSat is false then 
show cd btn "Hide Downlink" 
else 

hide cd btn "Hide Downlink" 
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end if 

put "Enter the communications system parameters. If they are" &&-> 
"unknown then click on the button below the selection."-’ 
into cd fid "Description" 
show cd fid "Description" 
unlock screen 
endopenCard 


on closeCard 

global EIRPUp£IRPDown.GTL'p,GTDown 
if cd fid "L'plink EIRP" is not a number then 
answer "Invalid EIRP! Try again." 
pass closeCard 

else if cd fid "Sat 1 EIRP" is not a number then 
answer "Invalid EIRP! Try again " 
pass closeCard 

else if cd fid "Sat 1 G T" is not a number then 
answer "Invalid G'T! Try again." 
pass closeCard 

else if cd fid "Downlink G T" is not a number then 
answer "Invalid GT! Try again." 
pass closeCard 
end if 

put cd fid "L'plink EIRP" into EIRPL’p 
put cd nd "Sat 1 G'T" into GTUp 
put cd fid "Sat 1 EIRP" into EIRPDown 
put cd fid "E>owniiiik GT" into GTDown 
end closeCard 


Script of Card "Link Frequency & Access Type" 


on openCard 

global commPage.access,GeoSat 
lock screen 
if GeoSat is true then 
show cd nd "Access Label" 
show cd btn "FDMA" 
show cd btn TDMA" 
if commPagc is false then 
set hilite of cd btn "FDMA" to false 
set hilite of cd btn "TDMA" to true 
put TDMA" into access 
end if 

put "Enter the uplink and downlink frequencies and select the" Si&- 
"acccss type." into cd fid "EJescription" 
show cd fid "Description" 
else 

hide cd fid "Access Label" 
hide cd btn "FDMA" 
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hide cd bto "TDMA" 

put "Enter the upUnk and downlink frcquenaes 
into cd fid "Description" 
show cd fid "Description" 
end if 

select text of cd fid "L'plink Freq" 
put true into commPage 
unlock screen 
endopenCard 


on closeCard 

global freqUp/reqDown.wav'‘L p,waveDown 
put cd fid "Uplink Freq" into freqUp 
put cd fid "Downlink Freq" into freqDown 
put FreqToWaveffreqUp) into waveUp 
put FreqToWaveffreqDown) into waveDown 
end closeCard 


Scnpt of Card "Jamming Losses" 


on openCard 

global JamUpJamDown,Losses 
put true into Losses 
put false into JamUp 
put false into JamDown 

set hilite of cd btn "Jam Uplink Receiver" to false 
set hilite of cd btn "Jam Downlink Receiver" to false 
put "To include jamming losses, enter the approriate jamming power" &&-' 
"for the uplink and downlink If the power is unknown then select" 
"'J amm er Power Unknown' to find the jammer power"-> 
into cd fid "Descnption" 
show cd fid "Description" 
endopenCard 


on closeCard 

global JamUpJamDownTammingUpJammingEXiwn 
if JamUp is true then 

put cd fid "Jammer Power" into JammingUp 
else 

put 0 into JammingUp 
end if 

if JamDown is true then 

put cd fid "Jammer Power 2" into JammingDown 
else 

put 0 into JammingDown 
end if 

end closeCard 
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Script of Card Transmission Losses 


on openCard 

global XmitLosses.GeosatlxMses 
put true into Losses 
lock screen 

set hilite of cd btn "Include Transmission Losses" to false 
put false into XmitLosses 

put "Enter the losses due to atmospheric constituents and the” &&-< 
"propagation losses due to scintillation and polarization" &&-• 
"coupling. To include these losses into the full link budget" <&&-' 
"computations dick on the Tndude Transmission Losses' button 
into cd fid "Description" 
show cd fid "Description" 
unlock screen 
end openCard 


on doseCaid 

global XmitLosses^AtmLossL'pPropLossUp^AtmLossDownPropLossDown 
global GeoSat 

if hilite of cd bm "Indude Transmission Losses" is true then 
put cd fid "Atmospheric Loss Up" into AtmLossUp 
put cd fid "Propagation Loss Up" into PropLossL'p 
put cd fid "Atmospheric Loss Down" into AtmLossDown 
put cd fid "Propagation Loss Down" into PropLossDown 
put true into XmitLosses 
else 

put 0 into AtmLossUp 
put 0 into PropLossUp 
put 0 into AtmLossDown 
put 0 into PropLossDown 
put false into XmitLosses 
end if 

enddoseCard 


Script of Card "Rain Losses" 


on OpenCard 

global RainLossesUpJ^ainLossesOown.GeoSatjainRegion 

global legionUpjegionDownPcieentUpPercentDown 

global RatnAttenUpJ^ainAttenEiown.Calc.CaseXosscs 

set cursor to 4 

put true into Losses 

lock screen 

put empty into Case 

put false into Calc 

put zero into RainAttenUp 

put zero into PerccntUp 
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put zero into RainAttenDown 
put zero into PerccntDown 
if GeoSat is false then 

set hilite of cd btn ^ndude Rain Losses" to false 

put false into RainLossesL'p 

put false into KainLossesDown 

show cd btn "Include Rain Losses" 

hide cd btn "Include L'plink Rain Losses" 

hide cd btn "Include Dow'nlink Rain Losses" 

hide cd btn "Display L’plink Rain Rate" 

hide cd btn "Display Downlink Rain Rate" 

put "Rain Region " into cd fid "Region Label" 

put FindRegion(regionL p) into rainRegion 

FillRegion 

put To include rain losses, select a surface point rain" 

"rate and then calculate the rain loss Then select Include" &&-' 
"Rain Losses' prior to leaving the card " into cd fid “Description" 
show cd fid “Description" 
else 

set hilite of cd btn "Display L'plink Rain Rate" to false 
set hilite of cd bln "Display Downlink Rain Rale" to false 
set hilite of cd btn "Include Uplink Rain Losses" to false 
set hilite of cd btn "Include Downlink Rain Losses" to false 
put false into RainLossesL'p 
put false into RainLossesDown 
hide cd btn "Include Rain Losses" 
show cd btn "Include L’plink Rain Losses" 
show cd btn "Include Downlink Rain Losses* 
show cd btn "Display Uplink Rain Rate" 
show cd btn "Display Downlink Rain Rate" 
put empty into cd fid "Region" 
repeat with \=4 to 15 
put empty into cd fid x 
end repeat 
end if 

repeat with x=7 to 18 
set hilite of cd btn x to false 
end repeat 
unlock screen 
endOpenCard 


on closeCard 

global RainAttenUpJLaimMtenDown.Calc.GeoSat 
global FercentUpPercentDown.SkyNoiseTemp 
global RainLossesLipJ^nLossesDown 
if RainLossesLip is false then 
put zero into RainAttenL'p 
put zero into PercentL’p 
end if 

if R^nLossesDown is false then 
put zero into RainAttenDown 
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put zero into PercentDown 
else 

if RaiaAttenDown > 0 then 
put num(RaiiiAttenDown) into loss 
put 273*(1 - 1 loss) into SkyNoiseTemp 
else 

put zero into SkyNoiseTemp 
end if 
end if 

if Calc is false then 
put zero into RaiaAttenUp 
put zero into RainAttenDown 
put zero into PercentUp 
put zero into PercentDown 
end if 

enddoseCard 


Script of Card "EIRP Parameters" 


on openCard 

global groundUplinkJ'CmitType.GeoSat 
lock screen 

put true into groundUplink 

set hilite of cd btn Transmitter Power Unknown" to false 
set hilite of cd btn "Antenna Gain Unknown" to fidse 
put "Enter the transmitter power and antenna gain and be" &&-' 
"sure to select the correct umts!. If these values arc" &&-< 
"unknown the click on the button below the selection."-’ 
into cd fid "Description" 
show cd fid "Description" 
if GeoSat is true then 
if XmitType is "Satellite" then 
put "Downlink EIRP Parameters" into line 2 of cd fid 1 
show cd fid "InputBO *^bcl" 
show cd fid "InputBO" 
hide cd fid "Label" 
hide cd fid "Ant Pointing Loss" 
hide cd fid "Loss to .Vfodoo" 
put "Satellite Transmitter Output Backoff (dB):"-’ 
into cu fid "OutputBO Label" 
else 

put "L'ptink EIRP Parameters" into line 2 of cd fid 1 

hide cd fid "InputBO Label" 

hide cd fid "InputBO" 

show cd fid "Label" 

show cd fid " Ant Pointing Loss" 

show cd fid "Loss to Motion" 

put "Ground Transmitter Output Backoff (dB) 

into cd fid utpuiBO Label" 
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end if 
else 

if XnutType is "Satellite" then 
hide cd nd "Label" 
hide cd fid "Ant Pointing Loss" 
hide cd fid "Loss to Motion" 

put "Downlink EIRP Parameters" into line 2 of cd fid 1 
put "Satellite Transmitter Output Backoff (dB);"-* 
into cd fid "OutputBO Label" 
else 

show cd fid "Label" 
show cd fid "Ant Pointing Loss" 
show cd fid "Loss to Motion" 
put "L'plink HRP Parameters" into line 2 of cd fid 1 
put "Ground Transmitter Output Backoff (dB): 
into cd fid "OutputBO Label" 
end if 

hide cd nd “InputBO Label" 
hide cd fid "InputBO" 
end if 

unlock Screen 

select text of cd Hd "Xmit Power" 
endopenCard 


Script of Card "GT Parameters" 


on openCard 

global satL’plinkRcvrType.GeoSat 
lock screen 

put true into satUplink 

set hilite of cd btn "System Noise Temperature Unknown" to false 
set hilite of cd btn "Antenna Gain Unknown" to false 
put "Enter the system noise temprature and antenna gain and be" &4&-' 
"sure to select the correct units!. If these values are" &&-> 

"unknown the click on the button below the selection."-’ 
into cd fid "Description" 
show cd fid "Description" 

If RcvrType is "Ground" then 
put "Downlink G/T Parameters" into line 2 of cd fid 1 
show cd fid "Label" 
show cd fid "Maim Margin" 
show cd fid "Ant Pointing Loss" 
show cd fid "Loss to Motion" 
else 

put "L'plink G/T Parameters" into line 2 of cd fid 1 

hide cd fid "Label" 

hide cd fid "Maim Margin" 

hide cd fid "Ant Pointing Loss" 

hide cd fid "Loss to Motion" 
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end if 

unlock screen 

select text of cd fid "Sys Noise Temp" 
eadopenCard 


Script of Card Transmitter Power" 


on openCard 

global access.GeoSatJ'CmitType 
lock screen 

if XmitType is "Ground" then 
show cd fid "Line Loss Label" 
show cd fid "Line Loss" 
if GeoSat is true then 
if access is "FDVtA" then 
show cd fid "Carriers Label" 
show cd fid "Carriers" 
else 

hide cd fid "Carriers Label" 
hide cd fid "Carriers" 
end if 
else 

hide cd fid "Carriers Label" 
hide cd fid "Carriers" 
end if 

put "Enter the satellites saturated power rating," &&-> 
"reserve for cnd-of-life loss and any feeder losses." &&-> 
"If access type is FDMA, enter number of carriers."-' 
into cd fid "Description" 

put "L’plink Transmitter Parameters" into cd fid I 
else 

hide cd fid "Line Loss Label" 
hide cd fid "Line Loss" 
hide cd fid "Carriers Label" 
hide cd fid "Carriers" 

pul "Enter the satellites saturated power rating." 

"reserve for end-of-life loss and any feeder losses."-’ 
into cd fid "Description" 

put "Downlink Transmitter Parameters" into cd fid I 
end if 

show cd fid "Description" 
unlock screen 

select text of cd fld "Saturated Power" 
end openCard 


Script of Ca’d ".\ntenna Gain" 
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OD openCard 
global .-VatType 
lock screen 

if .\ntType is "Satellite Down" then 
set hilite of cd btn "Downlink And Uplink .Antenna Same" to false 
show cd btn "Downlink And Uplink Antenna Same" 
show cd fid "Label" 
show cd fid "Off Beam Loss" 
show cd fid "Pointing Error" 

put "Satellite Downlink .Antenna Gain" into line 2 of cd fid 1 
put "Enter the antenna size, efficiency, off-center-beam loss" &A-> 
"due to satellite motion and satellite pointing error due to" SiA-' 
"satellite attitude control errors. If the downlink" &<&-> 

"antenna is the same as the uplink antenna, click on" &&-< 
"'Downlink .And Uplink .Antenna Same'" into cd fid "Description" 
else if .AntType is "Ground Down" then 
set hilite of cd btn "Downlink .And Uplink Antenna Same" to false 
show cd btn "Downlink .And L'plink Antenna Same" 
hidecdnd "Label" 
hide cd fid "Off Beam Loss" 
hide cd fid Tointing Error" 

put "Ground Downlink Antenna Gain" into line 2 of cd fid 1 
put "Enter the antenna size and effiaency. If the downlink" &&-' 
"antenna is the same as the uplink antenna, click on" &&-< 
"'Downlink .And Uplink Antenna Same'," into cd fid "Description" 
else if .AntType is "Satellite Up" then 
show cd nd "Label" 
show cd fid "Off Beam Loss" 
show cd fid "Pointing Error" 
hide cd btn "Downlink .And L'plink Antenna Same" 
put "Satellite Uplink .Antenna Gain" into line 2 of cd fid 1 
put "Enter the antenna size, efficiency, off-center-beam loss" &&-’ 
"due to satellite motion and satellite pointing error due to" SlA-' 
"satelMte attitude control erron." into cd fid "Description" 
else if .AntType is "Ground Up" then 
hide cd fid "Label" 
hide cd fid "Off Beam Loss" 
hide cd fid Tointing Error" 
hide cd btn "Downlink And Uplink Antenna Same" 
put "Ground Uplink Antenna Gain" into line 2 of cd fid 1 
put "Enter the antenna size and efficiency 
into cd fid "Description" 
end if 

unlock screen 

select text of cd fid ".Ant Size" 
end openCard 


Senpt of Card "Receiver" 
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onopeoCard 
global RcvrType 
lock screen 

if RcvrType is "Ground" then 
put "Downlink Receiver" into line 2 of cd fid 1 
else 

put "Uplink Receiver" into line 2 of cd fid I 
end if 

unlock screen 

select text of cd fid ".\nt Noise Temp" 
endopenCaid 


Script of Card "Quick Budget" 


on openCard 

global GeoSat.dBkXosses 
lock screen 
if losses is false then 
if GeoSat is false then 
hide cd btn "Calculate" 
show cd btn "General" 
show cd btn "Latest Time in View’ 
hide cd btn "Optimum" 
hide cd btn "Worst Case" 
hide cd btn "Rise" 
hide cd btn "Set" 

set hilite of cd btn "General" to false 
set hilite of cd btn "Latest Time in View" to false 
set hilite of cd btn "Optimum" to false 
set hilite of cd btn "W'orst Cxse" to false 
put ei nfy into line 17 of cd . .d 12 
hide ;ld "Overall C N" 
else 

show cd btn "Calculate" 

hide cd btn "General" 

hide cd btn "Latest Time in View" 

hide cd btn "Optimum" 

hide cd btn "Worst Case" 

hide cd btn "Rise" 

hide cd btn "Set" 

set hilite of cd btn "Calculate" to false 
put "Overall Oear Sky C'N (dB):" into line 17 of cd fid 12 
show cd fid "Overall C/N" 
end if 

show cd btn id 42 -- Full Budget Grey 
show cd btn id 49 - Jamming Losses Grey 
show cd btn id 50 - Rain Losses Grey 
show cd btn id 51 -- Xmit Losses Grey 

put The numbers that appear arc from the last use of this card." &A-' 
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To calculate the latest link budget select from the options above."-' 
into cd fid "Description" 
show cd fid "Description" 
set numberFormat to "0 ##" 
put -dBk into cd fid "dBk 1" 
put -dBk into cd fid "dBk 2" 
unlock screen 
end if 

put false into Losses 
endopenCard 


Script of Card "Noise Bandwidth" 


on openCard 
hide cd nd “Hide- 

put "Enter the noise bandwidth in NfHz. If the noise bandwidth" &&-' 
"is unknown then click on the 'L'nknown' button 
into cd fid “Descnption" 
show cd fid “Description" 
select text of cd fid "Noise Bandwidth" 
endopenCard 


on closeCard 
global noiseBWJS’oise 
put cd fid “Noise Bandwidth" into Bif 
put 10*log(Bir*10^6) into noiseBW 
put true into Noise 
end closeCard 


Script of Card "Uphnk Budget" 


on OpenCard 

global Glon.Glat^zL'p^t_elUpjangeL'p,d2rj2dXink,GeoSat 
global freqUpJ'CmitPwrUp£OLReserveL'p,OutputBOUpPaihLossUp 
global WorstETRPLT.GeoSatJ'CinitAntGainPercentUpaNumCaniers 
global PointingLossL'pPointingLossSatVfotionUpPwrUppIRPL^p 
global XmitLineLossUppeederLossUpPwrUp 
global FreeSpaceLossUp^tmLossL'pPropLossUpPain.'^ttenL p 
lock screen 

put freqLlp into cd fid “freqUp" 
if GeoSat is true then 
put round(AzUp) & “°“ into cd fid "AzL'p" 
else 

if Link IS "General" then 
put .AzL’p into cd fid ".AzL’p" 
else 

put roundf.AzL p) & "°" into cd fid " AzL’p" 
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end if 
end if 

pul rouiid(ant_eiUp) & into cd fid "ant_elL'p" 
put round(rangeUp) into cd fid "rangeUp" 
set numberFonnat to "0 00" 
if Glon > 0 then 

put Glon*r2d & E" into cd fid "Glon" 
else 

put -Glon*r2d & "° W" into cd fid "Glon" 
end if 

if Glat > 0 then 

put Glat*r2d & N" into cd fid "Glat" 
else 

put -Glat*r2d & "^ S" into cd fid "Glat" 
end if 

put XmitPwrUp-EOLReserveL'p-OutputBOL'p into netpwr 

if netpwr="0 00" then put PwrUp+0 into netpwr 

put XmitPwrUp+0 into cd fid "XmilPwrUp" 

put -EOLReserveUp+0 into cd fid "EOLReserveUp" 

put -OutputBOUp+0 into cd fid "OutputBOUp" 

put -XmitLineLossUp+0 into cd fid "XmitLineLossUp" 

put -FeederLo8sUp+0 into cd fid "FeederLossUp" 

put XmilAntGain+O into cd fid "XmitAntGain" 

put EIRPup+0+0 into cd fid "no mFT RP" 

put -PointingLossUpn-O into cd fid TointingLossUp" 

put -PointingLx)SsSaLV(otionUp+0 into cd fid TointingLossSatMotionUp" 

put QRPUp - PointingLossUp - -« 

PointingLossSatMotionUp into WorstEIRPUP 
put WorstHRPUP+O into cd fid "HRPup" 

- put propefflossup^rainattenup into preciploss 

put -FreeSpaceLossUp+-0 into cd fid TreeSpaceLossUp" 

put -AlmLossUp+0 into cd fid "AtmLoss" 

put -PropLossUp+-0 into cd fid "PropLoss" 

put -RainAttenUp^O into cd fid "RainAttenUp" 

put FreeSpaceLossUp + AtmLossUp PropLossUp + RainAttenUp-' 

into PathLossUp 

pul -PathLossUp+-0 into cd fid "PathLossUp" 
if Geosat is true then 

put "Output Back-Off For Carriers (dB):" into -« 

line A of cd fid 1 

put NumCarriers into cd fid "NumCarriers" 
else 

put "Output Back-Off (dB):" into line 4 of cd fid 1 
put empty into cd fid "NumCarriers" 
end if 

set numberFormat to "0.###" 
put PercentUp into cd fid "Percent" 
unlock screen 
endopenCard 
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Scnpt of Card T'plink Budget Continued 


on opencard 

global SatRcvr.4ntGain,SatRcvrNoiscTcnip,GTL’p 
global WorstCNLp.SatlnputBO.dBkjKMseBW 
global PalhLossUpJamUp.upCJJammingUp.upCN 
global WorsiEIRPLP.SatOffCenterLossL'p 
global PoinungErrorLossUp 
lock screen 

set numberFormat to "0 00" 

put SalRcvr.AntGain into cd fid "SatRcvrAntGatn" 

put -SatRcvrNoiseTemp+O into cd fid "SatRcvrNoiseTemp" 

put GTL’p into cd fid "Nom GT" 

put -SatOffCenterLossUp+O into cd (Id "SatOffCenterLoss" 
put -PointingErrorLossUp+O into cd fid TointingEnorLoss" 
put GTL’p - SatOffCenterLossUp - PointingErrorLxMsCp-' 
into WorstGTL’p 

put WorstGTL^fH-O into cd fid "GTUp" 

put WorstE3RPLP+0 into cd fid "EIRPUp" 

put -PathLossL’fH-0 into cd fid "PathLossL'p" 

put WorstGTL'p+0 into cd fid "GTL'p 2" 

put dBk+0 into cd fid "dBk" 

put -noiseBW-t-0 into cd fid "noiseBW" 

put W'orstEIRPLT - PathLossL'p + WorstGTL'p - dBk - -> 

noiseBW into WorstCNUp 

put WorstCNL'p+O into cd fid "CNL"p" 

put 1 (ICPfWorstCNL'p' 10)) into upCN 

if JamCp is true then 

put WorstEIRPLP - PathLossL’p - JammingL'p into CJL’p 
put 1 (10^(CJL p/10)) into upCJ 
put 10*log( I (upCJ + upCN)) into OverallCNX’p 
else 

put "N A" into CJL'p 
put zero into upCJ 
put WorstCNL’p into OverallCNL'p 
end if 

put JamnungUp+O into cd fid "Jam Up" 
put CJL'p into cd fid "CJL'p" 
put OverallCNL'p into cd fid "Overall CNL'p" 
end opencard 


Scnpt of Card "Downlink Budget" 


on openCard 

global GeoSatJLinkGlon,Glat.Gloo2Glat2/2d.d2r 
global rangeDown.SaLXmitAntGain.SatlnputBO.^zDown 
global freqDownAnutPwrDown£OLReserveDowu 
global OutputBOdown^t_elDownPoinUngErrorLossDown 
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global NumCarricnPwrDownPercentDownJ-eederLossDown 
global FreeSpaceLossDown^tmLossDownJlaiiLAuenDown 
global PropLxMsDownPathLossDown£IRPDown 
global SatOffCcnlerLossDown.WorsiEIRPDowD 
lock screen 

put freqDown into cd fid "freqDown" 
put round(ant_elDown) & into cd fid "ant_dDown" 
put roundfrangeDown) into cd fid "rangeDown" 
if GeoSat is true then 

put round(.-\zDown) & into cd fid "AzDown" 
set numberFormat to "0 00" 
if Glon2 > 0 then 

put Glon2*r2d & E" into cd fid "Glon" 
else 

put -Glon2*r2d & W" into cd fid "Glon" 
end if 

if Glat2 > 0 then 

put Glat2*r2d & "“ N" into cd fid "Glat" 
else 

put -Glat2*r2d & S" into cd Od "Glat" 
end if 

put "Satellite Input Back-Off (dB)" into line 2 of cd fid I 
show cd fid "SatInputBO" 
put -SatlnpulBO+O into cd fid "SatInputBO" 
else 

if Link is "General" then 
put AzDown info cd fid "AzDown" 
else 

put roundf AzDown) & into cd fid "AzDown" 

end if 

set numberFonnat to "0 00" 
if Glon > 0 then 

put Glon*r:d & E" into cd Bd "Glon" 
else 

put -Glon*r2d & W" into cd fid "Glon" 
end if 

if Glat > 0 then 

put Glat*r2d & "® N" into cd fid "Glat" 
else 

put -Glat*r2d & "" S" into cd Bd "Glat" 
end if 

put empty into line 2 of cd Bd 1 
put zero into SatInputBO 
hide cd Bd "SatInputBO” 
end if 

put XmitPwrDown+O into cd Bd "XmitPwrDown" 
put -EOLReserveDown+O into cd Bd "EOLReserveDown" 
put -FeederLossDown+0 into cd Bd TeederLossDown" 
put SaLXmitAntGain-i-0 into cd Bd "SaLXmiLAntGain" 
put -OutputBOdown-i-O into cd Bd "OutputBOdown" 
put EIRTOown-i-O into cd Bd "etlblKP" 
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puc -SatOffCeaterLossDowD+O inio cd fid "SatOffCenierLoss* 
put -PointingEnwLossDown-t-O into cd fid "PointingExrorLoss" 
put HRPDown - SatOffCenterLossDown - PointingEfrorLossDown-' 
into WorstEIRPDown 

put WorstEIRPDown + 0 into cd fid "fcJRPDown" 

put -FreeSpaceLossDown+O into cd fid TreeSpaceLossDown" 

put -AtmLossDown+O into cd fid "AtmLossDown" 

put -Rain.AttenDown+0 into cd fid "RaiaAttenDown" 

put -PropLossDown+0 into cd fid TropLossDown" 

if Geosat is true then 

put "Output Back-Off For Camers (dB):" into -> 

line 6 of cd fid 1 

put NumCamers into cd fid "NumCamers" 
else 

put "Output Back-Off (dB):" into line 6 of cd fid 1 
put empty into cd fid "NumCamers" 
end if 

put FreeSpaceLossDown + AtmLossDown -*■ RainAttenDown + PropLossDown-' 
into PathLossDown 

put -PathLossDown into cd fid "PathLossDown" 
set numberFormat to "0 ###" 
put PercentDown into cd fid "Percent" 
unlock screen 
end openCatd 


Script of Card "Downlink Budget Continued" 


on opeocard 

global PoinUngLossDownRain.AttenDown,GooSat 

global MaintMarginDown.GTDown.WorslEIRPDownPalhLossDown 

global Rcvr.AntGain.dBkjKMseBW.upCNJammingDown 

global Rcorrectfactordown.SkyNoiseTemp.upCJJamDown 

global RcvrNoiseTempPointingLossSaLVlotiooDown 

lock screen 

set numberFormat to "OOO" 

if SkyNoiseTemp is empty then put zero into SkyNoiseTemp 
put SkyNotseTemp+O into cd fid "SkyNoiseTemp" 
put RcvrAntGain-*0 into cd fid "RcvrAntGain" 
if RcvrNoiseTemp is not empty then 
put num(RcvrNoiseTemp) SkyNoiseTemp into Temp 
put 10*log(Temp) into RcvrTemp 
put -RcvrTcmp+O into cd fid "RcvrNoiseTemp" 
put RcvrAntGain - RcvrTemp into GT 
else 

put GTDown into GT 
end if 

put GT - PoinUngLossDown - VfainLMarginDown - -> 
PointingLossSatMotionDown into WorstGT 
put GT*-0 into cd fid "terminalGT" 
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put -PointingLo9sOown-*0 into cd fid TotodngLossDown” 

put -NlaintMarginDown-t-O into cd fid "MaintVlargin” 

put -PointingLossSaLVlotionEtown+O into cd fid -> 

"PointingLxjssSalVfotionDown" 

put WorstGT+O into cd fid "GTDown" 

put WorstEIRPDown+O into cd fid "EIRPDown" 

put -PathLossDown+0 into cd fid TathLossDown" 

put WorstGT-t-O into cd fid "GTDown 2" 

put -dBk+0 into cd fid "dBk" 

put -noiseBW+0 into cd fid "noiscBW" 

put WorstEIRPDown + WorstGT - dBk - PathLossDown - -< 

noiseBW into WorstCNDown 

put WorstCNDown+0 into cd fid "WorstCNDown" 

put JammingDown-HO into cd fid "Jam Down" 

put 1 (lO'fWorstCNDown/10)) into downCN 

if JamDown is true then 

put WorstEIRPDown - PathLossDown - JammingDown into CJDown 
put 1 (lO^fCiDowa 10)) into downCJ 
put 10*log(l/(downCI downOO) into OverallCNTDown 
else 

put "N A" into CJDown 
put zero into downCJ 
put WorstCNDown into OverallCNTDown 
end if 

put CJDown into cd fid "CJDown" 

put OverallCNDown+0 into cd fid "Overall CNDown" 

if GeoSat is true then 

put 10*log(l (upCN + downCN + downCJ + upCJ)) into WorstCN’Overall 
put WorstCNOverall+O into cd fid "WorstCNOverall" 
show cd fid "WorstCNOverall" 
show cd fid "WorstCNOverall Label" 
else 

hide cd fid ’W orstCNOverall" 
hide cd fid "W'orstCNOverall Label" 
end if 

unlock screen 
endoponcard 


Script of Card "Time Step" 


on openCard 

global timeZaiie.timeAdjust,begin 4 )eriod 
lock screen 

put the short date into cd fid "Date of View" 
put period into localPeriod 
convert localPeiiod to short time 
put TimeChangeOocalPeriod) into cd fid Teriod" 
if begin is true then 
set hilite of cd btn "LST" to true 
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set hilite of cd btn "DST" to false 
set hilite of cd btn "Zulu" to false 
put dmeZone into timeAdjust 
put the time into localTime 

put TimeChangeflocalTime) into cd fid "Time to Begin" 
put TimeChangeflocalPeriod) into cd fid "View" 
end if 

put 'The lewing Time' is the total time that the ground trace" &&-' 

"will run The 'Date of View' and Time to begin View' will" &A-> 
"determine the starting point for the ground trace The Time Step'" &A-' 
"sets the interval between satellite movements \^'heo modifying" &&-> 
"times ensure the entry is in HH VfM format. Dont forget the colon!" &&-' 
"linsure the date is in MM DD/YY format " into cd fid "Description" 
show cd fid "Description" 
unlock screen 
end openCard 


on closeCaid 

global view, penod. step, dt, GHAdeg, hourRequest.timeAdjust 
put 3029572800 into JDOsec 
put cd fid "Date of View" into dateRequcst 
convert dateRequest to seconds 
put char 1 to 2 of cd fid Time to Begin" into HH 
put char 4 to 5 of cd fid Time to Begin" into MM 
put HH + timeAdjust + (M\T60) into LT 
put LT * 3600 into hourRequest 
add dateRequest to hourRequest 
put ((dateRequest - JDOsec)/(24*3600)) into Jday 
put 100 4602346 + 0.985647348 * Jday + 15 041068 * LT into GHAlong 
put (GH.\long 360 - trunc(GH,Along'360)) * 360 into GHAdeg 
If GHVdeg < 0 then add 360 to GHAdeg 
if cd fid "View" is empty then 
put period into view 
else 

put char 4 to 5 of line 1 of cd fid "View" into it 
put 60*it into MM 

put char I to 2 of line 1 of cd fid "View" into it 
put 3600*it into HH 
put HH + MM into view 
end if 

if dt = empty then put 180 into dt 
if step empty then 
put "3 0 Minute" into step 
set hilite of cd btn "3 0 Minute" to true 
set the hilite of card button "6.0 Minute" to false 
set the hilite of card button "9 0 Minute" to false 
set the hilite of card button "15 Minute" to fdse 
set the hilite of card button "15 Vtinute" to false 
end if 

end closeCard 
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Script of Card "Ground Trace' 


on openCard 

global hrjiiin,sec,orbitPage,groundPage,begin,GHAdegAlap 
global ma’tLoajninLonjnaxLatjniiiLat.aLon.bLoD.aLat.bLat^wath 
global plotAll 
lock screen 
if begin is true then 

set the hilite of card button "North America” to false 

set the hilite of card button "South America" to false 

set the hilite of card button "Europe" to false 

set the hilite of card button "Africa" to false 

set the hilite of card button "Middle East" to false 

set the hilite of card button "Asia" to false 

set the hilite of card button "SE Asia & Australia" to false 

set the hilite of card button "North Atlantic" to false 

set the hilite of card button "South Atlantic" to false 

set the hilite of card button "Indian Ocean" to false 

set the hilite of card button "North Pacific" to false 

set the hilite of card buttoi. "South Pacific" to false 

set the hilite of card button "North Pole" to false 

set the hilite of card button "South Pole" to false 

set the hilite of card button "Global" to true 

- Choc le map for default 

put "Global Map" into Map 

- Set Swath default 

set hilite of cd btn "Ground Swath" to false 

put false into swath 

put false into plotAll 

hide cd btn "Continuous" 

hide cd btn "Individual" 

- Set Lai Lon limits 
put pi into maxLon 
put -pi into minLon 
put (pi 2) into maxLat 
put -(pi 2) into minLal 
-- Calc scale parameters 
put 511/2 into aLon 

put 5(X7/(2*pi) into bLoo 
put 301/2 into aLat 
put -25S/pi into bLat 
put false into begin 
end if 

put GHAdeg into cd fid "GHA" 

put "Select a map for view and if required select 'Ground Swath'" SiA-' 
"to display the area in the satellites view based upon the" &&-> 
"ground stations antenna elevation." into cd fid Tiescription" 
show cd fid "Dcscripdoo" 
unlock screen 
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end openCard 


Scnpt of Card "Global Map" 


on openCard 

show bg btn "Ground Trace" 
show bg btn "Rewind" 
show bg btn "Print Card" 
show bg fid Time Step Label" 
show bg fid Time Step" 
show bg fid Time Label" 
show bg fid Time" 
end openCard 


Script of Card "Geo Global" 


on openCard 

global Glon,Glat,Glon2,Glat2.GeoSatLonJatJon.d2rj2d 
global z,rJRe,ant_elant_el2,t 1 ,t2.dphi,e 1 ,e2,e3 
global n I ji2ai3.p 1 .p2.p3.earth_e.cEl.sH^t_elUpant_elDown 
global lonVJatVaL^naLat.bLon.bLaf.cLon.cLat.oldXv.oldYv 
global xS.yS.gxS.gyS,\V.yVAlapJ1otTypc.orbitPagc 
global rangeL'pxangeDown^AzUp^AzDown.groundPage 
if groundPagc is true then 
hide cd btn id 11 -- Link Info Gray 
else 

show cd btn id 11 -- Link Inlo Gray 
end if 

put true into orbilPagc 
set cursor to busy 

put The field of view for this satellite is based upon" &&-’ 
"the greatest antenna elavation of the two ground stations." -< 
into cd fid "Description" 
show cd fid "Description" 
put ant_el into ant.el 1 
if ant_el2 > ant_el then 
put ant_ei2 into ant_el 
end if 

- Calc scale pmameters 
hide bg btn "Satellite 2" 
put "Global Map" into Map 
put 511 2 into aLon 
put 507 (2•pi) into bLon 
put 301 2 into aLat 
put -255/pi into bLat 
put aLon -*■ bLoa*Gloo into g\Sl 
put aLat + bLat*Glat into gySl 
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put aLon bLon'GeoSatLon into xSat 
put aLon + bLoo*Gloa2 into gxS2 
put aLat -► bLat*Glat2 into gyS2 

set the loc of bg btn "Ground Uplink" to round(gxS 1)jroundfgyS 1) 

set the loc of bg btn "Ground Downlink" to round(gxS2)jound(gyS2) 

set the loc of bg btn "Satellite 1" to round(xSat).151 

put 0 into lat 

put GeoSaiLon into Ion 

choose brtish tool 

set brush to 32 

set pattern to 12 

Swath_V\ idth -- Handler in stack script, 
repeat with j = 0 to 30 
put j ‘dphi into phi 
put cos(phi) into cphi 
put sin(phi) into sphi 

put tl*pl t2*(cphi*nl -*• 8pl’!*el) into xV'iew 
put tl*p2 -t- t2*(cphi*n2 sphi‘e2) into yView 
put tl*p3 + t2*(cphi*a3 + sphi*e3) into zView 
put aSin(zView r) into latV 
put aTan2(xV iew,yView) into lon\' 
put "Fit .d of View" into PlotType 
PlotMap -- Handler in stack scnpt 
if J = 0 then 
put \V into oldXv 
put yV into oldVv 
end if 

if absloldXv - xV) < 250 then 

drag from round(oldXv)jtxuid(oldYv) to round(xV)/oundfyV) 
else 

Interpolate 
end if 

put xV into oldXv 
put vV into oldW 
end repeat 
choose browse tool 
put r*cos(GeoSatLon) into ox 
put r*sin(GeoSalLon) into oy 
put zero into oz 

put GeodedicLat(Giat) into GeoLat 

^t GeodedicLat(Glat2) into G«oLat2 

put GeodcdicR(GeoLat) into R_Oblong 

put GeodedicR(GeoLat2) into R_Obioag2 

put cos(G«oLat)*co8(Gloo) into gx 

put cos(GeoLat)*sin(Glon) into gy 

put sinfGeoLat) into gz 

put ox*gx + oy*gy + oz*gz into r_on_R 

put co8(GeoLat2)*cos(Glon2) into gx2 

put cos(Gx)Lat2)*sin(Glon2) into gy 2 

put sin(GeoLat2) into gz2 

put ox*gx2 oy*gy2 oz*gz2 into r_on_R_2 
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if r_on_R >= R_Oblong then 
put asin(r_on_Rr) into theoretical_el 
put atan((sin(theoretical_el) - R_Oblong r) 
cos(theoretical_el)) into true_el 
if tnje_el >= ant_el 1 then 
put SlantRange(rJi_Oblong,true_el) into rangeL'p 
put Glon - GeoSatLon into deljon 
put Azimuth (del_lon.Glat,GeoSatLon) into AzL'p 
put true_el*r2d into ant_elL’p 
else 

answer The uplink stauon is not in view of the Satellite!" 

"Either move the ground station, move the satellite or" &&-' 
"modify the antenna elevation." 
put "N A" into ant_elUp 
put "N' .A" into AzUp 
put false into orbitPage 
show cd bm id 11 - Link Info Gray 
end if 
else 

answer "The uplink station is not in view of the Satellite!" &&-' 
"Either move the ground station or move the satellite." 
put "N .A" into ant_elL p 
put "N .A" into AzL’p 
put false into orbitPage 
show cd btn id 11 -- Link Info Gray 
end if 

if r_on_R_2 >= R_Oblong2 then 
put asin(r_on_R_2 r) into theoretical _el 2 
put atan((sin(theoreucal_el2) - R_Oblong2 r)/-* 
cos(theoretical_el2)) into true_el2 
if true_el2 >= ant_el2 then 

put SlantRangefrJ^_Oblong2,tnie_el2) into rangeDown 
put Glon2 - GeoSatLon into del_lon2 
put .Azimuth (del_lon2.Glat2,GeoSatLon) into AzDown 
put true_el2*r2d into ant_eIDown 
else 

answer "The downlink station is not in view of the Satellite!" &&-' 
"Either move the ground station, move the satellite or" &A-' 
"modify the antenna elevation." 
put "N/A" into ant_elDowTi 
put "N/A" into AzDown 
put false into orbitPage 
show cd btn id 11 -- Link Info Gray 
end if 
else 

answer "The downlink station is not in view of the Satellite!" SlA-^ 

"Either move me ground station or move the satellite." 

put "N .A" into ant_elDown 

put "N A" into AzDown 

put false into orbitPage 

show cd bm id 11 - Link Info Gray 
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end if 

hide cd fid "Description" 
set numberFormat to "0.##" 
put AzUp into cd fid "Azimuth Up" 
put ant_elUp into cd fid "Elevation Up" 
put AzDown into cd fid "Azimuth Down" 
put ant_elDown into cd fid "Elevation Down" 
endopenCard 


on closeCard 
choose select tool 
doMenu "Revert" 
choose browse tool 
endcJoseCard 







APPENDIX E: MAJOR BUTTON SCRIPTS 


Inclusion of all of the button scnpts was prohibitive The first eight scnpts listed represent a 
generalized v ersion of the major navigation buttons. The remainder are significant enough that their 
inclusion was necessarv Wherever possible, scnpts of similar buttons on a specific card have been 
normalized. 


Scnpt of Button "< Button Name >" of < Card or Background > "< Card or Background Name >" 


on mouseUp 
global Error 
if Eirror is true then 

answer "You have an invalid entry ' Try again." 

pass mouseUp 
else 

go to cd "< Card Name >" 
end if 

end mouseCp 


Sc-npt of Button "Pnnt Card" of < Card or Background "< Card or Background Name >" 


on mouseUp 
do.Menu "Print Card" 
end mousel p 


Scnpt of Card Button "< Button Name >" of Card "< Card Name >" 


on mouseL p 

answer "Not an option from this card " 
end mousel,'p 


Scnpt of Button "Help Me" of < Card or Background "< Card or Background Name >1" 


on mouseUp 
global Goal 

put the short name of this cd into Goal 
go to cd "Help" && Goal 
end mouseUp 
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Scnp( of Background Bunon Tietum" of Background "Tfelp' 


on mouseUp 
global Goal 

visual effect Shrink to top 
go to cd Goal 
end mousel p 


Script of Button "< Button Name >" of Card "< Help Card Name >" 


on mouseUp 

visual effect Shrink to top 
go to "< Card Name >" 
end mouseUp 


Script of Background Button "Rewind" of Background "< Map Background Name >" 


on mouseUp 
global Map 

if the short name of prev cd = map then 
go prev 

else go to cd "Ground Trace" 
end mouseUp 


Script of Background Button Torward" of Background "< Map Background Name >" 


on mouseUp 
global Map 

if the short name of prev cd = map then 
go next 

else go to cd "Ground Trace" 
end mouseUp 


Script of Card Button "Semimajor Axis" of Card "WTiat You Know of Orbits" 


on mouseUp 

global GeoSat,commPage,groundPage,begin,orbitPagc.'nV>’oise 

put false into commPage 

put false into orbitPage 

put false into groundPage 

put false into TIV 

put true into begin 
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put false into GeoSat 
put false into Noise 
set hilite of me to true 

set the hilite of card button "Perigee and Apogee" to false 
set the hilite of card button "Charlie Elements" to false 
set the hilite of card button "Geostationary " to false 
go to aird "Semimajor Axis Card" 
end mouseL p 


Script of Card Button "Perigee and Apogee" of Card "What \'ou Know of Orbits" 


on mouseUp 

global GeoSat.commPage.groundPage.begin.orbitPage.TIV^oise 

put false into commPage 

put false into orbitPage 

put false into groundPage 

put false into TIV 

put true into begin 

put false into GeoSat 

put false into Noise 

set hilite of me to true 

set the hilite of card button "Semimajor Axis" to false 
set the hilite of card button "Charlie Elements" to false 
set the hilite of card button "Geostationary" to false 
go to card Tengee and Apogee Card" 
end mousel'p 


Script of Card Button "Charlie Elements" of Card "iMiat You Know of Orbits" 


on mouseUp 

gl obal GeoSat .commPage .groundPage .begi n .orbi tPagc .T1V JSoi sc 

put false into commPage 

put false into orbitPage 

put false into groundPage 

put false into TIV 

put true into begin 

put false into GeoSat 

put false into Noise 

set hilite of me to true 

set the hilite of card button "Semimajor Axis" to false 
set the hilite of card button "Perigee and Apogee" to fjdse 
set the hilite of card button "Geostationary " to false 
go to card "Charlie Elements Card" 
end mouseL'p 


Script of Card Button "Geostationary" of Card "What You Know of Orbits" 
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on mouscL’p 

gl obal GeoSai .groundPage ,orbi tPage .commPage Noi se 

put true into GeoSat 

put false into groundPage 

put false into orbitPage 

put false into commPage 

put false into Noise 

set hilite of me to true 

set the hilite of card button "Semimajor Axis" to false 
set the hilite of card button "Perigee and Apogee" to false 
set the hilite of card button "Charlie Elements" to false 
go to card "Geostationary Card" 
end mouseUp 


Script of Card Button "Orbital Hements" of Card "Semimajor Axis Card" 


on mouseL p 
set the cursor to 4 
lock screen 

global ecc.param J^nJRmax Jle.a.b^snOeg.perDeg^ncDegjnuJirjninjec 
global a.\lt. p.Alt, penodJError 
if Error is true then 

answer "You have an invalid entry! Try again " 
pass mouseUp 
else 

put line 1 of card field "a" into a 
put line 1 of card field "ecc" into ecc 
put line 1 of card field "asnDeg" into asnDeg 
put line 1 of card field "perDeg" into perDeg 
put line 1 of card field "incDeg" into incDeg 
if a IS not a number then 
answer "Invalid Semimajor Axis. Try Again!" 
put "Enter Semimajor Axis in Kilometers" into cd fid "Dcscnption" 
show cd fid "Description" 
pass mouseUp 
else if a < 6378 then 

answer "Tour orbit passes through the Earth Try .Again'" 
put "Enter Semimajor Axis in Kilometers" into cd fid "Descnplion" 
show cd fid "Description" 
pass mouseUp 
end if 

if ecc IS not a number or ecc < 0 or ecc >= 1 then 
answer "Not a valid cccentnaty Try Again'" 
put "Enter the Eccentncjty" into cd fid "Desenphoo" 
put "Os e < 1" into line 2 of cd fid "DesenpOon" 
show cd fid "Description" 
pass mouseUp 
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end if 

if incDeg is ncx a number or incDeg < 0 or incDeg > 180 then 
answer "Noc a valid inclination. Try .Again'" 
put "Enter The Inclination." into cd fid "Description" 
put "0° to 180°" into line 2 of cd fid "Description" 
show cd fid "Descnption" 
pass mouseUp 
end if 

if asoDeg is not a number or asnDeg < 0 or asnDeg > 360 then 
answer "Not a valid Longitude of the Ascending Node. Try Again!" 
put "Enter The Longitude of the Ascending Node " into cd fid "Descnpuon" 
put "0° to 360° to the East" into line 2 of cd fid "Descnption" 
show cd fid "Descnption" 
pass mouseUp 
end if 

if perDeg is not a number or perDeg < 0 or perDeg > 360 then 
answer "Not a valid .Argument of Perigee Try Again!" 
put "Enter The .Argument of Perigee" into cd fid "Description" 
put "0° to 360° to the East" into line 2 of cd fid "Descnption" 
show cd fid "Description" 
pass mouseUp 
end if 

put a*( 1 - ecc) - Re into p.Alt 
put a*( I + ecc) - Re into aAlt 
put p.Alt + Re into Rmin 
if Rmin < 6378 then 
answer^ 

"Invalid eccenuaaty. the satellite will hit the earth. Try again" 
select text of cd fid "ecc" 
exit mouseUp 
end if 

put a.Alt + Re into Rmax 

put Rmin*( 1 -*-ecc) into param 

put a*sqrt( 1 - ecc*ecc) into b 

put 2*pi*sqrl(a*a*amu) intopenod 

put irunclpcnod) into intP 

put intP div 3600 in'o hr 

put (intP - 3600*hr) div 60 into min 

put (iniP - 3600*hr • 60*min) into sec 

go to card "Orbital Elements" 

set numberFonnat to "0 #" 

put a & " Km" into line 1 of card Held "a" 

set numberFonnat to "0 ###" 

put ecc into tine 1 of card field "ecc" 

set numberFonnat to "0 #' 

put p.Alt & " Km" into line 1 of card field "p.Alt" 

put a.Alt A " Km" into line 1 of card field "a.Alt" 

put asnDeg & ’ °" into line 1 of card field "asnDeg" 

put perDeg " °" into line 1 of card field "perDeg" 

put incDeg & " °" into line 1 of card field "incDeg" 

set numberFonnat to "0 " 
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& sec & " HH. ^^M;SS*into 


if sec >= 10 then 
put hr & " " & min & " " 
line 1 of card field Time" 
else 

put hr & " " & min & " ■ & "0" & sec & " HH:MM;SS"into - 
line 1 of card field Time" 
end if 
end if 

end mouseL p 


Scnpt of Card Button "Orbital Elements" of Card "Perigee and Apogee Card" 


on mouseUp 
set the cursor to 4 

global ecc.paramJRmin Jlma.T JRe.a.b^nOeg.perDeg jncDegjnuJirjmnjec 
global aAlt, pAJt, period. Error 
if Error is true then 

answer Tou have an invalid entry! Try again." 
pass mousel'p 
else 

lock screen 

put line 1 of card field "pAlt" into pAlt 
put line 1 of card field "aAlt" into aAlt 
put line I of card field "asnOeg" into asoDeg 
put line 1 of card field "perDeg" into perDeg 
put line 1 of card field "incDeg" into incDeg 
if pAlt > aAlt then 
pul p.Alt into temp 
put aAlt into pAlt 
put temp into aAlt 
put p.Alt into cd fid "p.Alt" 
put aAlt into cd fid "aAlt" 
end if 

if p.Alt IS not a number or pAlt < 0 then 
answer "Not a valid .AlUtude of Pengee Try Again!" 
put ".Altitude of Pengee in Kilometers" into cd fid "Descnption" 
show cd fid "Desenpaon" 
pass mouseUp 
end if 

if aAlt IS not a number or aAlt < 0 then 
answer "Not a valid .Altitude of .Apogee Try .Again!" 
put " Altitude of Apogee in Kilometers " into cd fid "DesenpUon" 
show cd fid "Desenpdoo" 
pass mouseL'p 
end if 

if incDeg IS not a number or incDeg < 0 or imOeg > 180 then 
answer "Not a valid indinauon Try .Again 
pul "Enter The Inclination " into cd fid "E>escnption* 
put "0° to 180°" into line 2 of cd fid "Descnption" 
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show cd fid "Description" 
pass mouseUp 
end if 

if asnDeg is not a number or asnDeg < 0 or asnDcg > 360 then 
answer "Not a valid Longiride of the Ascending Node. Try Again!" 
put "Einter The Longitude of the Ascending Node." into cd fid "Description" 
put ''0° to 360° to the East" into line 2 of cd fid "Description" 
show cd fid "Desenpuon" 
pass mouseL'p 
end if 

if perDeg is not a number or perDeg < 0 or perDeg > 360 then 
answer "Not a valid .Argument of Pengee. Try Again!" 
put "Enter The .Argument of Perigee" into cd fid "Description" 
put "0° to 360° to the East" into line 2 of cd fid "Desenption" 
show cd fid "Desenpuon" 
pass mouseL'p 
end if 

put p.Alt + Re into Rmin 

put a.\lt + Re into Rmax 

put Rmia Rnia.\ into ratio 

put (1 - ratiolT 1 + ratio) into ecc 

put Rmin*( Uecc) into param 

-■ r = param (1 + ecc*cos( theta)) 

put (p.Alt + aAlt + 2*Re)-2 into a 

put a*sqrt( 1 - ecc’ecc) into b 

put 2*pi*sqrt(a*a*a,mu) into penod 

put inincfpenod) into intP 

put intP div 360. into hr 

put (intP - 3600'hr) div 60 into nun 

put (intP ■ 3600*hr - 60*min) into sec 

go to card "Orbital Elements" 

set numberFormat to "0.#" 

put a & " Km" into line 1 of card field “a" 

set numberFormat to "0 ###" 

put ecc into line 1 of card Held "ecc" 

set numberFormat to "0 #" 

put p.Alt & " Km" into line 1 of card field "pAlt" 

put aAlt & " Km" into line 1 of card field "aAIt" 

put asnDeg & " °" into line 1 of card field "asnDeg" 

put perDeg & " °" into line 1 of card field "perDeg" 

put incDeg & " °" into line I of card field "incDeg" 

set numberFormat to "0 " 

if sec >= 10 then 

put hr & ":* A min & ";* & sec & " IfH \tM SS'into -• 
line 1 of card field "Time" 
else 

put hr & " " & mm & " " A "0" & sec & ’ HH .VIM SS"into - 
line 1 of card field Time" 
end if 
end if 

end mouseL'p 
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Script of Card Button "Orbital Hcments" of Card "Charlie Qements Card 


on mouseUp 
set the cursor to 4 

global ecc,parainJ^minJ^iiia.xJic,a,b^nDeg4)erDeg4ncDegjnuJirjnin3ec 
global a.\lt. p.\lt. period, asnTime,EjTor 
if firror is true then 
answer "Invalid entr> ! Try again." 
pass mouseUp 
else 

put 806 81364522 into herg 
lock screen 

put line 1 of card field "NI M Motion" into MMM 

put line 1 of card field "ecc" into ecc 

put line 1 of card field "asnC" into asnC 

put line 1 of card field "perC" into perC 

put line 1 of card field "incC" into incC 

put (niu*(herg'MM\f)''2)^(l 3) into a 

put asnC*360 into asnDeg 

put perC*360 into perDeg 

put incC*360 into incDeg 

put a*( 1 - ecc) - Re into pAlt 

put a*( 1 + ecc) - Re into aAlt 

put p.\lt + Re into Rmin 

put aAlt + Re into Rmax 

put a*sqrt( 1 - ecc’ecc) into b 

put Rmin*( I >ecc) into param 

put 2*pi*sqrt(a*a*a mu) into penod 

put trunc<penod) into mtP 

put inlP div 3600 into hr 

put (intP - 3600*hr) div 60 into nun 

put (intP - 3600*hr - 60*nun) into sec 

go to card "Orbital Elements" 

set niunberFormat to "0 #" 

put a & " Km" into line 1 of card field "a” 

set numberFonnai to "0 ###" 

put ecc into line 1 of card field "ecc" 

set numberFormat to "0 #" 

put p.Alt & " Km" into line 1 of card field "p.Alt" 

put a.Alt & * Km" into line 1 of card field "aAlt" 

put asnDeg & * "" into line 1 of card field "asoDeg" 

put perDeg & " into line I of card field "perDcg" 

put incDeg & " *" into line 1 of card field "incDcg" 

set numberFormat to "0 " 

if sec >= 10 then 

put hr & " " & min & " " & sec & " HH:MM SS"into -> 
line 1 of card field Time" 
else 
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put hr & "& min & " " "0" & sec & " HH.MM;SS"into 

line 1 of card field Time" 
end if 
end if 

end mouseUp 


Script of Card Button Tquator" of Card "Geostationary Card" 


on mouseUp 

global GeoSatLon. change 
lock screen 

put the mouseH into \ 

set the location of cd btn "Satellite I" to x,l51 
show cd btn "Satellite 1" 
if X = 256 then 
put zero into GeoSatLon 
put GeoSatLon into cd fid "Sat Lon" 
set hilite of cd btn "East" to true 
set hilite of cd btn "W est" to false 
else 

put (X - 256)*(2*pi) 507 into GeoSatLon 
put GeoSatLon* 180/pi into lonDeg 
if lonDeg < 0 then 
set hilite of cd btn "East" to false 
set hilite of cd btn "West" to true 
else 

set hilite of cd btn "East" to true 
set hilite of cd bm "West" to false 
end if 

put round(abs(lonDeg)) into cd fid "Sat Lon" 
end if 

put uxie into change 
unlock screen 
end mouseL p 


Senpt of Card Button "Compute Rise and Set" of Card "Rise and Set" 


on mouseUp 
global Error 
if Error is true then 

answer "\ ou have an invalid entry! Try again." 
pass mouseUp 
else 

put "Compuung, This might take a while" into msg 
show msg 
- lock screen 
set cursor to 4 
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put empty into cd fid "Rise Time" 
put empty into cd fid "Rise Azimuth" 
put empty into cd fid "Elevation Angle" 
put empty into cd fid "Set Time" 
put empty into cd fid "Set Azimuth" 

global ecc.paramJ^minJlmaxJleAb^nOeg.perDegjncDeg.dtjnu 
global penod, GRXdeg, bourRequest.Glat,Gloo4nt_el,we.d2rx2d 
global E.i 4 neanMouon,ex,ey,ez,vx,vy.vz,sinE.cosE.tO 
global weAlax.RangeRiseAlaxRangeSetXinRange.TIV.AzRjse.AzSet 
global Az0pt.HRise£lSet£10pt 
put true into TIV 
put zero into VlaxRangeRise 
put zero into .VlaxRangeSet 
put 35786 into MinRange 
put sqrt(a*a*a/mu) into meanMotion 
p’lt true into first 
put one into line.num 
put "0,0.0,0,0" into data 
put zero into ElOpt 
put zero into QRise 
put zero into BSet 
pul zero into AzSet 
put zero into AzRise 
put zero into AzOpt 
put 0 081992 into earth_e 
OrbiLXform -- Handler in stack script. 

- Get Ground Stadoa Coordinates 
put GeodedicLatfGlat) into GeoLat 
put GeodedicR(G«oLat) into R_Oblong 
-- Calc orbit points 
put cd fid "Begin" into begin 
put cd fid "End" into theEnd 
put trunc<(begin - l)*period/60) -t- 1 into start 
pul round(theEnd*penody60) into finish 
repeat with k = start to finish 
add one to k 
put k*60 into orbtime 
put orbtime + tO into t 
put orbtime hourRequest into elapsedTime 
convert elapsedTime to short time 
Newton.Raphsoo - Handler in stack script. 

-- SolutioD for the true anomaly 
put cos(E) into cosE 

put (co8E-ecc)/(l-ecc*cosE) into cosOrbAng 
put sqrt( 1 -cosOrbAng^cosOrbAng) into sinOrbAng 
if sin(E) < 0 then put -sinOrbAng into sinOrbAng 
-- Solution for the Satellites inerbal coordinates 
put param. (1 +ecc*cosC)rbAng) into r 
put r’cosOrbAng into rp 
put r*sinOrbAng into rv 
put cx*rp + vx*rv into ox 
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put ey*rp + vy*rv into oy 
put ez*rp + vz*rv into oz 
put we*t into wet 

-- Solution for the sub-satellite point 
put cos(wet) into CosWet 
put sin(wet) into SinWet 
put ox*cosWet + oy*sinWet into xe 
put -ox*sinWet + oy*cosWet into ye 
put aSin(oz r) into satLat 
put aTaii2(xe,ye) into satLon 
- Solution for the ground stations inertial coordinates 
put Glon + wet into Gang 
put cos(G€oLat)*cos(Gang) into gx 
put cos(GeoLat)*sin(Gang) into gy 
put sin(GeoLat) into gz 
put ox*gx + oy’gy + oz*gz into r_on_R 
if r_on_R >= R_Oblong then 
put asin(r_on_R r) into theoretical_el 
put atan((sin(theoretical_el) ■ R_Oblong'r) 
cos(theoretjcal_el)) into tnie_el 
if true_el >= ant_el then 
put SlantRange(rJi_Oblong,true_el) into range 
put Glon - satLon into deljon 
put Azimuth (del_lon,Glat,satLat) into .AZ 
if fint IS true then 
add one to line_num 
put range into MaxRangeRise 
put TimeChangeielapsetTfime) into item I of data 
put Round(.AZ) & into item 2 of data 
put .AZ into AzRise 
put false into first 
put true_el*r2d into ElRise 
put zero into ElOpt 
end if 

if true_el*r2d > ElOpt then 
put true_el*r2d into ElOpt 
put .AZ into AzOpt 
end if 

put range into Ma.xRangcSet 
if range < MinRange then 
put range into MinRange 
end if 

put RoundfElOpt) & into item 3 of data 
put TimeChange(elapsedTime) into item 4 of data 
put Round(AZ) & into item 5 of data 
put .AZ into AzSet 
put true_el*r2d into HSet 
end if 
else 

put true into first 
put zero into ma.x_el 
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end if 

put Item I of data into line liDe_num of cd fid "Rise Time" 

put Item 2 of data into line line_num of cd fid "Rise Azimuth" 

put Item 3 of data into line line_num of cd fid "Hevation .Angle" 
put Item 4 of data into line line_num of cd fid "Set Time" 

put item 5 of data into line line_num of cd fid "Set Azimuth" 

end refxiat 
hide msg 
end if 

end moil.'el p 


Scnpt of Card Button "< Ram Region >" of Card "Ground Station Placement" 


on mouse L'p 
global regio 

put the shop .line of me into rep* or. 
put region into msg 
set lockNfessages to true 
pass mouseup 
end mousel'p 


Script of Card Button “Second Ground Site" of C^d "Ground Stauon Placement" 


on nouse I p 
global GD2 
put true into GD2 
end mouseL p 


ScTipt of Card Button "I plink QRP I nknown" of Card "Link Info" 


on mouse I p 

global XiiiitTvpe„AntT>pe 
set hilite of me to true 
put "Ground" into XmitTy"pe 
put "Ground Up" into .AntType 
go cd "ORP Parameters" 
end mouseUp 


Script of Card Button "Downlink G T Unknown" of Card "lank Info" 


on mouseDown 
global RcvrType.AntType 
put "Ground" into RtvrType 
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put "Ground Down" into .\ntT\pe 
set hilite of me to trtie 
go cd "G T Parameters" 
end mouseDown 


Scnpt of Card Button "Satellite ORP L’nknown" of Card "Link Info" 


on mouse L’p 

global XmitTvpe. AntType 
set hilite of me to true 
put "Satellite" into XmiiType 
put "Satellite Down" into .\ntTypc 
go to cd "EIRP Parameters" 
end mouseUp 


Script of Card Button "Satellite G T Unknown" of Card "Link Info" 


on mouseUp 

global RcvrType.AntType 
put "Satellite" into RcvrType 
put "Satellite Up" into .AntType 
set hilite of me to true 
go to cd "G T Parameters" 
end mouseUp 


Scnpt of Card Button "Done" of Card "Jamming Losses" 


on mouseUp 

global Jammer,waveUp,waveDownJamUpJamDown£rTor 
if Error is true then 
answer "Invalid entry! Try again." 
pass mouseUp 
else 

lock screen 
hide me 

hide cd fid "J amm er Power Output" 

hide cd fid "Label" 

hide cd fid "Range" 

hide cd btn "Jamming in Main Beam" 

hide cd btn "Jamming at Half Beam" 

hide cd nd "Hide" 

put cd fid "Range" into range 

put cd fid "Jammer Power Output" into Power 

-- Jammer antenna is modeled as an omni-directional antenna 

-- with a gain of 1.56 dBi 
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put 1 56 into gainUp 
put I 56 into gainDown 

if hilite of cd btn "Jammer Power Unknown" is true then 
put (4*pi*range*i0^3 waveUp)''2 into lossUp 
put 10*log(lossUp) into Loss 
put Power + gainUp - Loss into Jammer 
if hilite of cd btn "Janmung at Half Beam" is true then 
subtract 3 from Jammer 
end if 

show cd bm "Jammer Power Unknown" 
put Jammer into cd fid "Jammer Power" 
end if 

if hilite of cd bm "J amm er Power Unknown 2* is true then 
put (4*pi*range*l(}^3 waveDown)^2 into lossDown 
put 10*log(lossDown) into Loss 
put Power -t- gainDown - Loss into J amm er 
if hilite of cd bm "Jamming at ffalf Beam" is true then 
subtract 3 from Jammer 
end if 

show cd bm "Jammer Power L'nknown 2" 
put Jammer into cd fid "Jammer Power 2" 
end if 

show cd fid "Jammer Power Label 2" 
show cd fid "Jammer Power 2" 
show cd fid "Jammer Power Label" 
show cd fid "Jammer Power" 
show cd bm "Jam Uplink Receiver" 
show cd bm "Jam Downlink Receiver" 
set hilite of cd btn "Jammer Power Unknown" to false 
set hilite of cd bm "Jammer Power Unknown 2" to false 
show cd bm "Jammer Power Unknown" 
show cd bm "Jammer Power Unknown 2" 
unlock screen 
end if 

end mouseUp 


Scnpt of Card Button "< Percent >" of Card "Rain Losses" 


on mouseUp 

global PercentUp.GeoSat.CaseJ^ate 
global PercentDownXhrection 
lock screen 
repeat with x=7 to 18 
set hilite of cd bm x to false 
end repeat 

set hilite of me to uue 
put "< Case >" into Case 
unlock screen 

put cd fid < Rate Exceeded > into Rate 
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if GeoSat is false then 
put < Percent > into PercentUp 
put < Percent > into PercentDown 
else 

if Direction is T'p" then 
put< Percent > into PercentUp 
else if Direction is "Down" then 
put < Percent > into PercentDown 
end if 
end if 

end mouseUp 


Script of Card Button "Display Uplink Rain Rate" of Card "Rain Losses" 


on mouseUp 

global DirectionjegionUpjainRegion 
lock screen 

set hilite of me to true 

set hilite of cd btn "Display Downlink Rain Rate" to false 
put "Up" into Direction 

put "Uplink Rain Region:" into cd fid "Region Label" 
put FindRegion(regionUp) into rainRegion 
FillRegion 
unlock screen 
end mouseUp 


Script of Card Button "Display Downlink Rain Rate" of Card "Rain Losses" 


on mouseUp 

global DirectionjegionlXiwnjaiiiRegion 
lock screen 

set hilite of me to true 

set hilite of cd btn "Display Uplink Rain Rate” to false 
put "Down" into Direction 

put "Downlink Rain Region:" into cd fid "Region Label" 
put FindRegion(regioaDown) into rainRegion 
FillRegion 
unlock Screen 
end mouseUp 


Script of Card Button "Include Uplink Rain Losses” of Card "Rain Losses” 


on mouseUp 
global RainLossesUp 
if hilite of me is true then 
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put true into RaioLossesUp 
else 

put false into RainLossesUp 
end if 

end mouseL'p 


Script of Card Button "Calculate Rain Losses" of Card "Rain Losses" 


on mouseUp 

global PercentUp.Glat.Glat2J'reqUp/reqDown.GeoSat 
global ant_elUp,CaseJlateX>irection 

global ant_elDownJlainAttenUpJ^a.\ttenDownPercentOown 
global Calc 
lock screen 
set cursor to busy 
if Case is empty then 
answer "Select a surface point rain rate" 
else 

put cd fid "Region" into Region 
put true into Calc 
if GeoSat is false then 

put FindRainAttenuation(Glatant_elUpJ'reqUp.CasePatePercentUp,-’ 
Region) into RainAttenUp 

put FindRainAttenuation(Glatant_elI>ownJ'reqDown.CaseJRate.-' 
PercentDownPegion) into RaioAttenDown 
else 

if Direction is "Up" then 

put FindRainAttenuation(Glatant_elUp/reqUp,CaseJlate)-^ 
into RainAttenUp 
else if Direction is "Down" then 

put nndRainAttenuation(Glat2ant_elDownJreqDown,CasePate)-' 
into RaioAttenDown 
end if 
end if 
end if 

unlock screen 
end mouseUp 


Script of Card Button "Link Info" of Card "HRP Parameters" 


on mouseUp 

global XmitTypeiJKPUpJEIRPDownPwrUpPwrDownHXmitAntGain 
global PointingLossUpPointingLossSatMotionUp.OutputBODown 
global SatXmitAntGain,SatInputBO,GeoSat,OutputBOUp£nror 
if Error is Ume then 
answer "Invalid Entry! Try again." 
pass mouseUp 
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else 

set numberFonnat to "0.##" 
if XmifType is "Ground" then 
if hilite of cd btn "Watts Xmit" is true then 
put cd fid "Xmit Power" into pwr 
put I0*log(pwr) into PwrL'p 
else 

put cd fid "Xmit Power" into PwrUp 
end if 

put cd fid ".\nt Gain" into XmitAntGain 
put cd fid "OutputBO" into OutputBOL'p 
put cd fid "Ant Pointing Loss" into PoindngLossUp 
put cd fid "Loss to Motion" into PointingLossSaLVlotionUp 
put PwrUp + XmitAntGain - OutputBOL'p into EIRPUp 
go to cd "lank Info" 
put HRPL'p into cd fid "Llplink HRP" 
else if XmitType is "Satellite" then 
if hilite of cd bm "Watts Xmit" is true then 
put cd fid "Xmit Power" into pwr 
put 10*log(pwr) into PwrDown 
else 

put cd fid "Xmit Power" into PwrDown 
end if 

put cd fid "Ant Gain" into SaLXmit.AntGain 
put cd fid "OutputBO" into OutputBODown 
if GeoSat is true then 
put cd fid "InputBO" into SatInputBO 

put PwrDown + SatXmitAntGain - SatInputBO - OutputBODown^ 
into EIRPDown 
else 

put zero into SatInputBO 

put PwrDown + SatXmitAntGain - OutputBODown into EIRPDown 
end if 

go to cd "Link Info" 

put EIRPDown into cd fid "Sat 1 EIRP" 
end if 
end if 

end mouseUp 


Script of Card Button "Link Info" of Card "G/T Parameters" 


on mouseUp 

global RcvrType,GTL^p,GTEX)wnJVrUpJ*wrDown 
global SatRcvrAntGainRcvrAntGain.GeoSatfrror 
global RcvrNoiseTemp.SatRcvrNoiseTemp^IaintMarginDown 
global PointingLossDownJ'ointingLossSatMotionDown 
lock screen 
if Error is true then 
answer "Invalid Entry! Try again." 
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pass mouseUp 
else 

set numberFormat to "0 ##" 
if RcvrType is "Ground" then 
if hilite of cd btn "®K" is true then 
put cd fid "Sys Noise Temp" into noiseT 
put 10*log(' seT) into RcvrNoiseTemp 
else 

put cd fid "Sys Noise Temp" into RcvrNoiseTemp 
end if 

put cd fid ".\nt Gain" into Rcvr.\ntGain 

put cd fid "Maint Margin" into MaintMarginDown 

put cd fid "Ant Pointing Loss" into PointingLossDown 

put cd fid "Loss to Motion" into PointingLossSatMotionDown 

put Rcvr.\ntGain - RcvrNoiseTemp into GTDown 

go to cd "Link Info" 

put GTDown into cd fid "Downlink GT" 
else if RcvrType is "Satellite" then 
if hilite of cd bm "“K" is true then 
put cd fid "Sys Noise Temp" into noiseT 
put 10*log(noiseT) into SatRcvrNoiseTemp 
else 

put cd fid "Sys Noise Temp" into SatRcvrNoiseTemp 
end if 

put cd fid "Ant Gain" into SatRcvrAntGain 
put SatRcvrAntGain - SatRcvrNoiseTemp into GTUp 
go to cd "Link Info" 
put GTL’p into cd fid "Sat 1 G/T" 
end if 
end if 

unlock screen 
end mouseUp 


Script of Card Button "Transmitter" of Card Transmitter Power" 


on mouseUp 

global accessJCniitPwrUp£OLReserveUp>IumCanieTs,OutputBOUp 
global FeederLo8sUp.XmitLineLossUp.XmitType 
global PwrUp,Gec>Sat,XmitPwrDown£OLReserveDown,OutputBODown 
global FeederLossDownJ*wrDown£iTor 
lock screen 
if Error is true then 
answer "Invalid Entry! Try again." 
pass mouseUp 
else 

if XmitType is "Ground" then 
put 0 into PwrUp 

if hilite of cd btn "Watts" is true then 
put 10*log(cd fid "Saturated Power") into XmitPwrUp 
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else 

put cd fid "Saturated Power* into XmitPwrL’p 
end if 

add XmitPwrUp to PwrUp 
put cd fid "EOL Loss" into EOLRescrveUp 
subtract EOLReserveUp from PwrUp 
put 0 into OutputBOUp 
subtract OutputBOUp from PwrUp 
put cd fid "Feeder Loss" into FeederLossUp 
subtract FeederLossUp from PwrUp 
put cd fid "Line Loss" into XmilLineLossUp 
subtract XmitLineLossL'p from PwrUp 
if Geosat is true then 
if access is "FDMA" then 
put cd fid "Carriers" into NumCarriers 
else put 0 into NumCarriers 
else 

put 0 into NumCarriers 
end if 

set numberFcrmat to "0.##" 
go to cd "ORP Parameters" 
put PwrUp into cd fid "Xmit Power" 
set hilite of cd bm "dBW Xmit" to true 
set hilite of cd bm "Watts Xmit" to false 
else if XmitType is "Satellite" then 
put 0 into PwrDown 
if hilite of cd bm "Watts" is true then 
put 10*log(cd fid "Saturated Power") into XmitPwrDown 
else 

put cd fid "Saturated Power" into XmitPwrDown 
end if 

add XmitPwrDown to PwrDown 
put cd fid "EOL Loss" into EOLReserveDown 
subtract EOLReserveDown from PwrDown 
put cd fid "Feeder Loss" into FeederLossDown 
subtraa FeederLossDown from PwrEX)wn 
go to cd "EIRP Parameters" 
set numbcrFormat to "0.##" 
put PwrDown into cd fid "Xmit Power" 
set hilite of cd bm "dBW Xmit" to true 
set hilite of cd bm "Watts Xmit" to false 
end if 

end if 

unlock screen 
end mouseUp 


Script of Card Button "Antenna" of Card "Antenna Gain" 


on mouseUp 


193 







global AniTvpeJCmitAiitGain-.SatRcvrAntGain .SatymitAniTiain 
global RcvrAiitGaiii,waveUp,waveDown£iror 
global SatOfTCenterLxwsUpJ’ointingEirorLossL’p 
global SatOfTCcntcrLossDown J’ointingErrorLossDown 
lock screen 
if Error is true then 
answer "Invalid Enrty! Try again." 
pass mouseUp 
else 

set numberFonnat to "0.##" 
put cd fid "Ant EfP into eff 
if hilite of cd btn "Parabolic" is true then 
if hilite of cd btn "Area (in^2)" is true then 
put cd fid "Ant Size" into area 
put sqrt(4*area/pi) into diam 
else 

put cd fid "Ant Size" into diam 
end if 

put efr*((pi*diam/waveUp)''2) into gainL'p 
put eff*((pi*diam waveDown)^2) into gainDown 
else 

put cd fid "Ant Size" into area 
put efr*4*pi*areay(waveup^2) into gainUp 
put eff*4*pi*area/'(waveDown^2) into gainDown 
end if 

if AntType is "Ground Up" then 
put 10*iog(gainUp) into XmitAntGain 
go to cd "EIRP Parameters" 
put XmitAntGain into cd fid "Ant Gain" 
else if AntType is "Satellite Up" then 
put 10*log(gainUp) into SatRcvrAntGain 
put cd fid "Off Beam Loss" into SatOffCenterLossUp 
put cd fid "Pointing Error" into PointingErrorLossUp 
go to cd "G/T Parameters" 
put SatRcvrAntGain into cd fid "Ant Gain" 
else if AntType is "Satellite Down" then 
put cd fid "Off Beam Loss" into SatOffCenterLossDown 
put cd fid "Pointing Error" into PointmgEirorLossDown 
put 10*log(gainDown) into SatXmitAntGain 
go to cd "EIRP Parameters" 
put SatXmitAntGain into cd fid "Ant Gain" 
else if AntType is "Ground I>)wn" then 
put I0*Iog(gainDown) into RevrAntGain 
go to cd "G/T Parameters" 
put RevrAntGain into cd fid "Ant Gain” 
end if 

end if 

unlock screen 
endmouseUp 
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Script of Card Button Tiowiilink And Upiink Antenna Same” of Card "Antenna Gain' 


on mouseUp 

global AntType.SatXmiLAntGain.SatRcvrAntGainJRcvrAntGainAniitAntGain 
global freqUp/reqEtownJ'CmitAnlGain 
global SatOffCenterLossDownPointingErrorLossEiow'n 
put lO'LogllfreqDown. freqL’p)^2) into convert 
if -AntType is "Satellite Down" then 
if SatRcvrAntGain is empty then 

answer "No antenna gain for the uplink has been entered " &&-> 

"Enter the antenna parameters to continue." 
pass mouseUp 
else 

put cd fid "Off Beam Loss" into SatOffCenterLossDown 
put cd fid Tointing Error" into PointingEirorLossDown 
put SatRcvrAntGain + convert into SatXmitAntGain 
go to cd "EIRP Parameters" 
put SatXmitAntGain into cd fid "Ant Gain" 
end if 

else if AntType is "Ground Down" then 
if XmitAntGain is empty then 

answer "No antenna gain for the uplink has been entered." &&-• 

"Enter the antenna parameters to continue.” 
pass mouseUp 
else 

put XmitAntGain -*■ convert into RcvrAntGain 
go to cd "G/T Parameters" 
put RcvrAntGain into cd fid "Ant Gain" 
end if 
end if 

set hilite of me to true 
end mouseUp 


Script of Card Button "Receiver" of Card "Receiver" 


on mouseUp 

global RcvrNoiseTemp.SatRcvrNoiseTempJlcvrType.SkyNoiscTemp 
global Error 
lock scr een 
if Error is true then 
answer "Invalid Entry! Try again." 
pass mouseUp 
else 

set numberFormat to " 010 " 

put cd fid "Ant Noise Temp" into Ta 

put cd fid "WG Loss" into 1 

put num(l) into LI 

put cd fid "LNA Gain" into G2 
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put cd fid "LNA Temp" into Tel 
put cd fid "DC Noise Temp" into Te3 
put cd fid "Amb Temp" into To 
put TaLl + (LI - I)^o.Ll + Tel + Te3/Gl into noiseT 
put 10*log(noiseT) into SysNoiseT 
if RcvrType is "Satellite" then 
put SysNoiseT into SatRcvrNoiseTemp 
go to cd "G T Parameters" 

put SatRcvrNoiseTemp into cd fid "Sys Noise Temp" 
set hilite ol cd btn "dB’K" to true 
set hilite of cd btn "“K" to false 
else if RcvrType is "Ground" then 
put SysNoiseT into RcvrNoiseTemp 
go to cd "G/T Parameters" 
put RcvrNoiseTemp into cd fid "Sys Noise Temp" 
set hilite of cd btn "dB°K" to trtie 
set hilite of cd btn "°K" to false 
end if 
end if 

unlock screen 
end mouseUp 


Script of Card Button "Optimum" of Card "Quick Budget" 


on mouseUp 

global HRPUpJQRPDown.GTLfp.GTDownjioiseBWJ-reeSpaceLossDown 
global FreeSpaceLossUp.waveUp.waveDown.CNUp.dBk 
global CNT)own.CNOverallJJnk,pAltJ^e^t_eLVlinRange 
global rangeL'pjangeDown^AzOpt£IOpt^zUp^t_elUp^zDown^t_elDown 
lock screen 
hide cd btn "Rise" 
hide cd btn "Set" 
set numberFormat to "0.##" 
if Link is "General" then 
put pAlt into range 

put (4*pi‘range* l(K3/waveUp)''l into lossUp 

put (4*pi*range‘10'3/waveDown)^l into lossDown 

put iO*log(IossUp) into FreeSpaceLossUp 

put 10*log(lo8sOown) into FreeSpaoeLossDown 

put EIRPUp - FreeSpaceLossUp + GTUp - dBk - noiseBW into CNX'p 

put ORPDown - FreeSpaceLossDown + GTDown - dBk - noiseBW-i 

into CNDown 

put lO'fCNUp/lO) into upCN 

put lO'(CNT)ownyiO) intodownCN 

put lO*log(L(l'upCN + LdownCN')) intoCNOverall 

put "N/A" into AzUp 

put "N/A" into AzDown 

put 90 into ant_eiUp 

put 90 into ant_elDown 
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else 

put VlioRange into range 

put (4*pi‘range* 10'3/waveL'p)^2 into lossL'p 

put (4*pi’range* I(>'3/waveDown)^2 into lossDown 

put 10*Iog(lossUp) into FreeSpaceLossUp 

put 10*log(lossEX)wn) into FreeSpaceLossDown 

put EIRPUp - FreeSpaceLossUp + GTLp - dBk - noiseBW into CNL'p 

put HRPDown - FreeSpaceLossDown + GTDown - dBk - noiseBW-- 

into CNDown 

put 10''(CNL’p/10) into upCN 
put 1 CP (CNDown 10) into downCN 
put 10*log(l (I 'upCN + 1 downCN)) into CNOverall 
put AzOpt into AzUp 
put AzOpt into AzDown 
put HOpt into ant_elL'p 
put ElOpt into ant_elDown 
end if 

put range into rangeUp 
put range into rangeDown 
put rangeUp + 0 into cd fid "Slant Range Up" 
put rangeDown + 0 into cd fid "Slant Range Down" 
put -FreeSpaceLossUp -t- 0 into cd fid "Uplink Path Loss" 
put CNL'p -t- 0 into cd Od "Uplink C N" 
put -FreeSpaceLossDown + 0 into cd fid "Downlink Path Loss" 
put CNDown + 0 into cd fid "Downlink CN" 
put CNOverall -t- 0 into cd fid "Overall CN" 
set bilite of me to true 
set hilite of cd btn "Wont Case" to false 
hide cd btn id 42 -- Full Budget Grey 
hide cd btn id 49 - Jamming Losses Grey 
hide cd btn id 50 - Rain Losses (jrey 
hide cd btn id 51 -- Xmit Losses Grey 
unlock screen 
end mouseUp 


Script of Card Button "Worst Case" of C!ard "Quick Budget" 


on mouseUp 

global EIRPUp£IRPDown,GTUp,GTDownjioiseBWJ-reeSpaceLossDown 
global FreeSpaceLossUp.waveUp.wavei Ajwn.CNT.'p,dBk^zUpAzDown 
global CNDown.CNOverallXjnk.Rmax Jle^t_el/angeL'pjangeDown 
global ant_elUp^t_elDown 
lock screen 

set numberFormat to "OJf 
if Link is "General" then 
put SlantRange(RmaxJ^e^t_cl) into range 
put (4*pi*range*10^3/wavcUp)^2 into lossUp 
put (4*pi’range* 10^3/waveDown)^2 into lossDown 
put lO’IogflossUp) into FreeSpaceLossUp 
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put 10*logOossDown) into FreeSpaceLossDown 
put EIRPUp - FreeSpaceLossUp + GTL’p - dBk - noiseBW into CNL’p 
put HRPDown - FreeSpaceLossDown + GTDown - dBk - noiseBW-' 
into CNDown 
put "N A" into AzUp 
put A" into AzDown 
put ant_el into ant_elL p 
put ant_el into ant_elDown 
put 10''(CNX’p' 10) into upCN 
put 10^(CNDowa 10) into downCN 
put 10*!og(l (1 upCN + 1 downCN)) into CNOverall 
put range into rangeUp 
put range into rangeDown 
put rangeUp + 0 into cd fid "Slant Range L'p* 
put rangeDown + 0 into cd fid 'Slant Range Down" 
put -PreeSpaceLossL'p 0 into cd fid "L'plink Path Loss" 
put CXL'p + 0 into cd fid "L'plink C N" 
put -FreeSpaceLossDown *■ 0 into cd fid "Downlink Path Loss" 
put CNDown + 0 into cd fid "Downlink C N" 
put CNOverall -t- 0 into cd fid "Overall C N" 
hide cd btn id 42 -- Full Budget Grey 
hide cd btn id 49 -- Jamming Losses Grey 
hide cd btn id 50 - Rain Losses Grey 
hide cd btn id 51 - Xmit Losses Grey 
else 

show cd btn id 42 - Full Budget Grey 
show cd bln id 49 - Jamming Losses Grey 
show cd btn id 50 - Rain Losses Grey 
show cd btn id 51 -- Xmit Losses Grey 
show cd btn "Rise" 
show cd btn "Set" 
set hilite of cd btn "Rise" to false 
set hilile of cd btn "Set" to false 
end if 

set hilite of me to true 
set hilite of cd btn "Optimum" to false 
unlock screen 
end mouseUp 


Script of Card Button "General" of Card "Quick Budget" 


on mouseUp 

global ErRPUp£IRPDown,GTUp,GTDown 4 ioiseBWXink 
lock screen 

put "General" into Link 
show cd btn "Optimum" 
show cd btn "Worst Case" 
hide cd btn "Rise" 
hide cd bm'Set" 
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put The geaerai case assumes the satellite is at pengce overhead' 
"for the 'Optimum' and at apogee as it .-omes in view for the* 
'"Worst Case'" into cd fid Ttescription" 
show cd fid 'Descripooj" 
set hilite of me to true 

set hilite of cd btn Latest Time In View" to false 
set hilite of cd btn "Optimum" to false 
set hilite of cd btn "Vt orst Case" to false 
set numberFormat to "0 

put -noiseBW + 0 into cd fid '?<oise Bandwidth !" 
put -noiseBW 0 into cd fid "Noise Bandwidth 2" 
put ORPL p -t- 0 into cd fid “L'plink EIRP" 
put GTL'p + 0 into cd fid "Uplink GT" 
put EIRPDown - 1 into cd fid "Dow nlink EIRP* 
put GTDown -t- 0 into cd fid "Downlink G T* 
show cd btn id 42 - Full Budget Grey 
show cd btn id 49 -- Jamming Losses Grey 
show cd btn id 50 -- Rain Losses Grey 
show cd btn id 51 -- Xmit Losses Grey 
unlock screen 
end mouseUp 


Scnpt of Card Button "Latest Time in View" of Card "Quick Budget" 


on mouseUp 

global ElRPUpJEIRPDown.GTL’p,GTDownjnoiseBWX j nk.TV 
if TIV is false then 

answer "Rise and Set calculations needed * 
else 

lock screen 

put "TIV" into Link 

put "The Tatest Time in View' uses the actual slant ranges" &&-' 

"at satellite rise, maximum elevation and set times."-' 

into cd fid "Description" 

show cd fid "Description" 

set hilite of me to true 

show cd btn "Optimum" 

show cd btn "Worst Case" 

set hilite of cd btn "General" to false 

set hilite of cd btn "Optimum" to false 

set hilite of cd bm "Worst Case" to false 

set numberFormat to "O.MM" 

put -noiseBW -t- 0 into cd fid "Noise Bandwidth 1" 

put -noiseBW + 0 into cd fid "Noise Bandwidth 2" 

put EIRPUp + 0 into cd fid "Uplink EIRP" 

put GTL'p -I- 0 into cd fid "Uplink G/T" 

put EIRPDown -i- 0 into cd fid "Downlink EIRP" 

put GTDown -v 0 into cd fid "Downlink G/T" 

show cd btn id 42 - Full Budget Grey 
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show cd btn id 49 -- Jamming Lxisses Grey 
show cd btn id 50 - Rain LxMses Grey 
show cd btn id 51 -- Xmit Losses Grey 
unlock screen 
end if 

end mouseUp 


Script of Card Button "Rise" of Card "Quick Budget" 


on mouseUp 

global EIRPUp£IRPDown.GTL’p.GTDownjioiseBW precSpaceLossDown 
global FreeSpaceLossUpAfaxRangeRise.waveUp.waveDown.CNUp,dBk 
global CNDown,CNOverallijnkJlmaxJie^t_eljangeUpjan::"r)own 
global AzRise£lRise^t_elL'p^t_elDown^zUp^A 2 Down 
lock screen 

set numberFormat to "0 

put MaxRangeRise into range 

put (4*pi*range*10^3/waveUp)^2 mto lossLp 

put (4*pi*iange*10^3/waveDown)''2 into lossDown 

put 10*log(lossUp) into FreeSpaceLossUp 

put 10*log(lossDown) into FreeSpaceLossDown 

put ORPUp - FreeSpaceLossLfp -t- GTL'p - dBk - noiseBW into CNTJp 

put ORPDown - FreeSpaceLossDown + GTDown - dBk - noiseBW-' 

into CMDown 

put 10''(CNL'p/10) into upCN 
put 10^(CNDowny 10) into downCN 
put 10*Iog(l (1 upCN + 1 downCN)) into CNOverall 
put AzRise into AzL'p 
put AzRise into AzDown 
put ElRise into ant_elUp 
put HRise into ant_elDown 
put range into rangeUp 
put range into rangeDown 
put rangeUp + 0 into cd fid "Slant Range Up" 
put rangeDown + 0 into cd fid "Slant Range Down" 
put -FreeSpaceLossUp -t- 0 into cd fid "Uplink Path Loss" 
put CNUp -*■ 0 into cd fid "Uplink C/N" 
put -FreeSpaceLossDown -t- 0 into cd fid "Downlink Path Loss" 
put CNDown -t- 0 into cd fid "Downlink C'N" 
put CNOverall 0 into cd fid "Overall C/N" 
set hilite of me to true 
set hilite of cd btn "Set" to false 
hide cd btn id 42 - Full Budget Grey 
hide cd btn id 49 - Jamming Losses Grey 
hide cd btn id 50 - Rain Losses Grey 
hide cd btn id 51 - Xmit Losses Grey 
unlock screen 
end mouseUp 
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Script of Card Buaoa "Set" of Card "Quick Budget' 


on mouseUp 

global HRPUpJEIRPDown.GTUp.GTDownjiOtseBWJ-reeSpaceLossDown 
global FreeSpaceLossL'p_Ma\RangeSet,waveUp,wavcDown.CNX'p,dBk 
global CNDown.CNOverallJJnkJiina.xJ^e,ant_elAzSet£lSet 
global AzUp>4zDown^t_elUp^t_elDown 
lock screen 

set numberFormat to "0.##" 

put MaxRangeSet into range 

put (4*pi‘range* 10^3/waveUp)^2 into lossUp 

put (4*pi*range*10^3/waveDowny'2 into lossQown 

put 10*log(lossUp) into FreeSpaceLossUp 

put 10*log(lossDown) into FreeSpaceLossDown 

put EIRPUp - FreeSpaceLossUp + GTUp - dBk - noiseBW into CNL’p 

put EIRPDown - FreeSpaceLossDown + GTDown - dBk - noiscBW-i 

into CNDown 

put 10^(CNUp/10) intoupCN 
put 10^ (CNDown/10) into downCN 
put 10*log(l/(l upCN + 1 downCN)) into CNOverall 
put AzSet into AzUp 
put AzSet into AzDown 
put HSet into ant_elUp 
put HSet into ant_elDown 
put range into rangeUp 
put range into rangeDown 
put rangeLlp 0 into cd fid "Slant Range Up" 
put rangeDown + 0 into cd (Id "Slant Range Down" 
put -FreeSpaceLossUp + 0 into cd fid "Uplink Path Loss" 
put CNT-’p -t- 0 into cd fid "Uplink C/N" 
put -FreeSpaceLossDown -t- 0 into cd fid "Downlink Path Loss" 
put CNTtown 0 into cd fid "Downlink C/N" 
put CNOverall ^ 0 into cd fid "Overall C/N" 
set hilite of me to true 
set hilite of cd btn "Rise" to false 
hide cd btn id 42 - Full Budget Grey 
hide cd btn id 49 - Jamming Losses Grey 
hide cd btn id 50 - Rain Losses Grey 
hide cd bm id 51 - Xmit Losses Grey 
unlock screen 
end mouseUp 


Script of Card Button "Calculate" of Card "Quick Budget" 


on mouseUp 

global ORPUpflRPDown.GTUp.GTDownjioiseBW/angcUpjangeDown 
global FreeSpaceLossUp JrecSpaceLossDown.waveUp.waveDown.CNUp 
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global CNDown^CNOverall.dBkjioiseBW 

put (4*pi*raDgeUp*l(y'3'waveUp)*2 into lossL'p 

put (4*pi*rangeDown*l(>'3/waveDown)^2 into lossDown 

put 10*log(lossUp) into FreeSpaceLossUp 

put 10*log(lossE)own) into FreeSpaceLossLtown 

put ORPUp - FreeSpaceLossUp + GTL’p - dBk - noiscBW into CNUp 

put HRPDown - FreeSpaceLossDown + GTDown - dBk - noiseBW-' 

into CNDown 

put l(y'(CSL'p/10) into upCN 

put 10''(CNDown/10) into downCN 

put 10*log(L(l/upCN + I'downCN)) into CNOverall 

set numberFormat to "0.##" 

put -noiseBW + 0 into cd fid "Noise Bandwidth 1" 

put -noiseBW + 0 into cd fid "Noise Bandwidth 2" 

put ORPUp + 0 into cd fid "Uplink EIRP" 

put GTUp + 0 into cd fid "Uplink G/T" 

put EIRPDown + 0 into cd fid "Downlink EIRP* 

put GTDown 0 into cd fid "Downlink G/T" 

put rangeUp 0 into cd fid "Slant Range Up" 

put rangeDown -t- 0 into cd fid "Slant Range Down" 

put -FreeSpaceLossUp + 0 into cd fid "Uplink Path Loss" 

put CNX'p + 0 into cd fid "Uplink C/N" 

put -FreeSpaceLossDown -t- 0 into cd fid "Downlink Path Loss" 

put CNTlown -t- 0 into cd fid "Downlink C/N" 

put CNOverall -t- 0 into cd fid "Overall C/N" 

put "The general case assumes the satellite is at pen gee overhead" <&&-' 
"for the 'Optimum' and at apogee as it comes in view for the” St&~> 
""Worst Case'." into cd fid "Description" 
show cd nd "Description" 
hide cd btn id 42 - Full Budget Grey 
hide cd btn id 49 — Jamming Losses Grey 
hide cd btn id 50 - Rain Losses Grey 
hide cd btn id 51 - Xmit IxMses Grey 
end mouseUp 


Script of Card Button "Done" of Card "Noise Bandwidth" 


on mouseUp 
global Error 
lock screen 

if cd fid "Baseband Freq" is not a number or-' 
cd fid "Baseband Freq" < 0 then 
answer "Invalid Baseband Frequency! Try again" 
pass mouseUp 
end if 

if cd fid "FM Deviation" is not a number or-' 
cd fid "FM Deviation" < 0 then 
answer "Invalid FM Deviation! Try again." 
pass mouseUp 
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end if 

put false into Error 
hide me 

hide cd fid "Baseband Freq Label" 
hide cd fid "Baseband Freq" 
hide cd fid "FM Deviation Label" 
hide cd fid "FM Deviation" 
hide cd nd "Hide" 

put cd fid "Baseband Freq"* 10'3 into Bhi 

put cd fid "FM Deviation" into dp 

set numberFormat to "0.##" 

put 2*(Bhi + dp)/10^6 into cd fid "Noise Bandwidth" 

show cd fid "Noise Bandwidth Label" 

show cd btn "Noise Bandwidth Unknown" 

set hilite of cd btn "Noise Bandwidth Unknown" to false 

show cd fid "Noise Bandwidth" 

hide cd fid "Description" 

unlock screen 

select text of cd fid "Noise Bandwidth" 
end mouseUp 


Senpt of Card Button "< Time Step >" of Card "Time Step" 


on mouseUp 
global dt. step 

put < Time Step in Seconds > into dt 
put "< Time Step >" into step 
set hilite of me to true 

set the hilite of card button "< Other Time Step >" to false 
set the hilite of card button "< Other Time Step >" to false 
set the hilite of card button "< Other Time Step >" to false 
set the hilite of card button "< Other Time Step >" to false 
show cd fid "Description" 

put "< Time Step Recommendation >" into cd fid "Description" 
end mouseUp 


Script of Card Button "LST" of Card "Time Step" 


on mouseUp 

global timeZooe.timeAdjust 
set hilite of me to true 
set hilite of cd btn "DST" to false 
set hilite of cd btn "Zulu" to false 
put timeZone into bmeAdjust 
end mouseUp 
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Script of Card Button "DST" of Card Time Step 


on mouseUp 

global timeZone.dmeAdjust 
set hilite of me to true 
set hilite of cd btn TST" to false 
set hilite of cd btn "Zulu" to false 
put dmeZone - 1 into timeAdjust 
end mouseUp 


Script of Card Button "Zulu" of Card Time Step" 


on mouseUp 

global timeZone.timeAdJust 
set hilite of me to true 
set hilite of cd btn "LST" to false 
set hilite of cd btn "DST" to false 
put 0 into timeAdjust 
end mouseUp 


Script of Card Button Ttot Track" of Card Xjround Trace" 


on mouseUp 
set cursor to 4 

global ecc,paramJlminJ^ma\Jien.b 3 snDeg.perDegjncDeg.dtjnu 

global period, step, view. GHAdeg, hourRequest.cLat.cLon 

global aLon.bLon.aLat,bLat4naxLon,minLonjnaxLatjninLatAiap 

global Glon.Glat.Swath3nt_el,plotAll,tO£3inE.cosE 

global d2rj2d.ex,ey,ez,vx,vy,vz4neanMotiooi’!otType 

global lonJat.Glon.GlatJonVJatV.xS.yS.gxS.gySjtV.yV jEl.cEl 

global tl,t2,dphi,el.e2.e3jilJi2ji3,pl,p2,p3 

global lonVJonCk.GlonCkJonVckjnaxLonCk 

global oldXs,oldYs.oldYv,oldXv.tj,z 

put 00007292115856 into we 

put sqrt(a*a*a/mu) into meanMotion 

put true into first 

if swath is false then put true into plotAll « 

OrbitXform -- Handler in stack script. 

-• Calc orbit points , 

put rouDd(view/dt)into noPts 

put -1 into i 

- put 1 into kMin 

put noPts ^ I into kMax 

go to cd Map 

domenu "Copy Card" 

choose brush tool 
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set brush to 32 
set pattern to 12 
repeat with k = 1 to kMax 
add one to i 
put i*dt into orbtime 
put orbtime + tO into t 
put orbtime + hourRequest into elapsedTime 
convert elapsedTime to short lime 
N'ewton_Raphson - Handler in stack script. 

* put cos(E) into cosE 

put (cosE-ecc)/( I -ecc*cosE) into cosOrbAng 

put sqrt( 1 -cosOrb.Ang^cosOrbAng) into sinOrbAng 

if sin(E) < 0 then put -sinOrbAng into sinOrb.Ang 

put param (1+ecc*cosOrb.Ang) into r 

put r*cosOrb.Ang into rp 

put r*sinOrbAng into rv 

put ex*rp + vx’rv into x 

put ey*rp + vy*rv into y 

put ez*rp + vz*rv into z 

put we'orbtime into wet 

put cos(wet) into CosWet 

put sin(wet) into SinWet 

put x*cosWet + y’sinWet into xe 

put -x*sinWet y*cosWet into ye 

put aSin(z r) into lat 

put aTan2(xe,ye) into Ion 

put "Ground Site" into PloiTypc 

MaxLonCheck 

put "Sub Satellite" into PlotType 
MaxLonCheck - Handler in stack script 
if lat >= minLat and lat <= maxLat and-< 
lonCk >= minLon and lonCk <= maxLonCk then 
if Map = "Global Map" then 
doMcnu "Paste Card" 
set cantDelete of this cd to false 
mark card 

pul step into bg Held Time Step" 

put TimeChangefelapsedTime) & " Zulu" into bg fid Time" 

put "Ground Site" into PlotType 

PlotMap - Handler in stack script. 

set the loc of cd btn "GS" to round(gxS)jound(gyS) 

* show cd btn "GS" 

put "Sub Satellite" into PlotType 
t PlotMap - Handler in stack script, 

if i = 0 then 
put xS into oldXs 
put yS into oldYs 
end if 

if absfoldXs - xS) < 250 then 

drag from round(oldXs)jround(oidYs) to round(xS)jound(yS) 
else 
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Interpolate 
end if 

put :^S into oldXs 
put yS into oldYs 
if ploLAil is false then 
domenu "Copy Card" 
end if 

- Plot ground swath 
if Sw'ath is true then 

Swath.Width -- Handler in stack script. r 

repeat with j = 0 to 30 
put j*dphi into phi 
put cosfphi) into cphi 
put sin(phi) into sphi 

put tl*pl + t2*(cphi*nl + sphi’el) into xView 
put tl*p2 + t2*(cphi*n2 + sphi*e2) into yView 
put tl*p3 + t2*(cphi*n3 sphi*e3) into zView 
put aSinfzView r) into latV 
put aTan2(.xView.yVicw) into lonV 
put Tield of View" into PlotType 
PlotMap -- Handler in stack scnpt. 
if j = 0 then 
put xV into oldXv 
put yV into oldyv 
end if 

if absfoidXv - xV) < 250 then 

drag from round(oldXv)jx)und(oldYv) to round(xV)jound(y V) 
else 

Interpolate 
end if 

put xV into oldXv 
pot yV into oldYv 
end repeat 
end if 

if p’otAll is true then 
domenu "Copy Card" 
end if 
else 

doMenu Taste Card" 

set cantDeiete of this cd to false 

mark card 

put step into bg field Time Step" « 

put TimeCbangefeiapsedTime) & " Zulu" into bg fid "Time" 

if Glat >= mi ni at rmd Glat <= maxLat and-' I 

GlonCk >= rninLoo and GlooCk <= maxlxmCk then 
put "Ground Site" into PlotType 
PlotMap -- Handler in stack script, 
set the loc of cd btn "GS" to round(gxS)jound(gyS) 
show cd btn "GS" 
end if 

put "Sub Satellite" into FlotType 
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PloLVlap - Handler in stack script 
if first is true then 
put xS into oldXs 
put y S into oldYs 
put false into first 
end if 

drag from round(old\s)jound(oldYs) to round(xS)jound(yS) 
put xS into oldXs 
put yS into oldYs 
if plot.\ll is false then 
domenu "Copy Card" 
end if 

put true into second 
- Plot ground swath 
if Swath is true then 
Swath_Width -- Handler in stack script, 
repeat with j = 0 to 30 
put j*dphi into phi 
put cos(phi) into cphi 
pul sin(phi) into sphi 

put tl’pl + t2*(cphi*ol + sphi'el) into xView 
put tl*p2 + t2*(cphi*n2 + sphi*e2) into yView 
put tl*p3 -t- t2*(cphi*n3 > sphi*e3) into zView 
put aSinfzView r) into latV 
put aTan2(xView,yView) into lonV 
put "Field of View " into PlotType 
MaxLonCheck -- Handler in stack script, 
if lalV >= minLat and latV <= naaxLat and-- 
lonVck >= minLon and lonVck <= inaxLonCk then 
PlotMap 

if second is true then 
put xV into oldXv 
put yV into oldyv 
put false into second 
end if 

if absfoldXv - xV) < 250 then 

drag from roiind(oldXvijx)und(oldYv) to round(xV)/ound(y V) 
end if 

pul xV into oldXv 
pul yV into oldY v 
else put true into second 
end repeat 
end if 

if plolAll is true then 
domenu "Copy Card" 
end if 
end if 

else put true into first 
end repeat 
choose browse tool 
play "Presto" 
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end mouseUp 


Scnpt of Card Button "Review" of Card "Ground Trace" 


on mouseUp 
global Map 
go to cd Map 

repeat while marked of next card is true 
go to next card 
visual dissolve fast 
end repeat 
end mouseUp 


Script of Card Button "Erase" of Card "Ground Trace" 


on mouseUp 
global Map 

answer "Erase all maps or just view selected'’" with "All" or-' 
"View" or "Cancel" 
if it is "Cancel" then 
pass mouseUp 
else if it is "All" then 
set cursor to 4 
lock screen 

set lockMessages to true 
repeat with x = number of cards down to 1 
go to cd X 

if marked of cd x is true then 
doMenu "Delete Card" 
end if 
end repeat 

go to cd "Ground Trace" 
doMenu "Compact Stack" 
set lockMessages to false 
unlock screen 
play "Presto" 
else 

set cursor to 4 
lock screen 

set lockMessages to true 
put number of cards of bg Map into c 
repeat with x = 1 to c 
go to last cd of bg Map 
if marked of last card of bg Map is true then 
doMenu "Delete Card" 
go to last cd of bg Map 
end if 
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end repeat 

go to cd "Ground Trace" 
doMenu "Compact Stack" 
set locLMessages to false 
unlock screen 
play "Presto" 
end if 

end mouseL'p 


# _ 

Script of Card Button "< Map Name >" of Card "Ground Trace" 


on mouseL'p 

global aLon.bLon.aLat.bLatjnaxLonjninLonjnaxLatjninLatAlap 
repeat with x = 5 to 19 
set hilite of cd bm x to false 
end repeat 

set hilite of me to true 
Choose map 

put "< Nfap Name >" into Map 
- Set Lat Lon limits 

< Lat Lon Limits > 

-- Calc scale parameters 

< Scale Parameters > 
end mouseL'p 


lat Lon Limits and Scale Parameters of Card Button "Global Map" of Card "Ground Trace" 


- Set Lat'Lon limits 
put pi into maxLon 
put -pi into mioLon 
put (pi'2) into maxLat 
put (pi'2) into minLat 

- Calc scale parameters 
put 511'2 into aLon 

put 507'(2*pi) into bLon 
put 3012 into aLat 
put -255/pi into bLat 


Lat Ton Limits and Scale Parameters of Card Button "North America" of Card "Ground Trace" 


) - Set LafLon limits 

put -(pi/4) into maxLon 
put -(5*pi/6) into minLon 
put (pi 3) into maxLat 
put 0 into mioLat 
put 30*(pi/180) into cLat 
put -97 5*(pi/180) into cLon 
- Calc scale parameters 
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put 255 into aLon 

pul 330/(7*pi 12) tnto bLon 

put 129 into aLat 

put -220 (pi 3) into bLat 

L-at Lon Limits and Scale Parameters of Card Button "South Amenca" of Card "Ground Trace" 

-- Set Lai Lon limits 
put (pi 6) into ma\Lon 
put (pi 2) into minLon 
put (pi 12) into maxLat 
put (pi 3) into minLat 
put -22.5*(pi/180) into cLat 
put 60*(pi/180) into cLon 
-- Calc scale parameters 
put 255 into aLon 
put 264 (pi 3) into bLon 
put 165 into aLat 
put -292 (5*pi/12) into bLat 


Lai Lon Limits and Scale Parameters of Card Button “North Adantic" of Card "Ground Trace" 


-• Set Lai Lon limits 
pul 0 into maxLon 
put (pi 2) into minLon 
put (pi/3) into maxLat 
put 0 into minLat 
put 30*(pi/180) into cLat 
put 45*(pi 180) into cLon 
-- Calc scale parameters 
put 255 into aLon 
put 3% (pi 2) into bLon 
pul 129 into aLat 
put -220/(pi 3) into bLat 

L-alLon Limits and Scale Parameters of Card Button "South Atlantic" of Card "Ground Trace" 


- Set lat Lon limits 
put (pi' 12) into maxLon 
put (pi 4) into minLon 
put (pi T2) into maxLat 
pul -(pi/3) into minLat 

put -22 5*(pi/180) into cLat 
put - I5*(pi/180) into cLon 

- Calc scale parameters 
put 255 5 into aLon 
put 393 (pi 3) into bLon 
put 134 5 into aLat 

put -231 (5*pi 12) into bl^t 

Lat Ixjn Limits and Scale Parameters of Card Button "Europe" of Card "Ground Trace" 
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-- Set Lat'Lon limits 
put (pi 4) into maxLon 
put (pi 12) into minLon 
put (5*pi 12) into ma;d^t 
put (pi 6) into minLat 
put 52.5*(pi 180) into cLat 
put 15*(pi 180) into cLon 
-- Calc scale parameters 
put 255 into aLon 
put 320 (pi 3) into bLon 
put 152 into aLat 
put -266. (pi'4) into bLat 

Lat Lon Limits and Scale Parameters of Card Button "Africa" of Card "Ground Trace" 


- Set Lat Lon limits 
put (pi 3) into masLon 
put (pi/12) into minLon 
put (pi 4) into maxLat 
put (pi 4) into mi ni a t 
put 0*(pi 180) into cLat 
put 22.5*(pi 180) into cLon 

- Calc scale parameters 
put 255 5 into aLou 

put 283 (5*pi/T2) into bLon 
put 160.5 into aLat 
put -283 (pi/2) into bLat 


Lat Lon Limits and Scale Parameten of Card Button "Middle East" of Card "Ground Trace" 


-- Set Lat Lon limits 
put (pi'3) into ma}tLon 
put (pi 6) into minLon 
put (pi'4) into maxLat 
put 0 into minLat 
put 22.5*(pi/180) into cLat 
put 45*(pi/180) into cLoo 
- Calc scale parameters 
put 255.5 into aLon 
put 267/(pi/6) into bLon 
put 168 into aLat 
put -298/(pi/4) into bLat 


Lat Lon Limits and Scale Parameten of Card Button "Asia" of Card "Ground Trace" 


- Set LatLon limits 
put (pi) into maxLoo 
put (pi/4) into minLon 
put (5*pi/12) into maxLat 
put 0 into minLat 
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put 37 5*(pi< 180) into cLat 

put 112 5*(pi'180) into cLon 

-- Calc scale piarameters 

put 255 into aLon 

put 416. (3‘pi 4) into bLon 

put 134 5 into aLat 

put -231 (5*pi 12) into bLat 


Lai Lon Limits and Scale Parameters of Card Button "Indian Ocean" of Card "Ground Trace" 

♦ 

-- Set LalLon limits 
put (2*pi 3) into maxLon 
put (pi 4) into mioLon 
put (pi 6) into maxLat 
put (pi 4) into mi ni a t 
put -7 5*(pi< 180) into cLat 
put 82.5*(pi/180) into cLon 
-- Calc scale parameters 
put 255 5 into aLon 
put 317 (5*pi/12) into bLon 
put 151 into aLat 
put -264. (5*pi' 12) into bLat 

Lat Lon Limits and Scale Parameters of Card Button "SE Asia & Australia" of C!ard "Ground Trace" 


-- Set LalLon limits 
put (11 *pi/12) into maxLon 
put (pi 2) into minLon 
put (pi 6) into maxLat 
put (pi 4) into minLat 
put -7 5*(pi 180) into cLat 
put 127 5*(pi/180) into cLon 
- Calc scale parameters 
put 255 into aLon 
put 298/(5*pi/12) into bLon 
put 167 5 into aLat 
put -297'(5*pi/12) into bLat 

Lat Lon Limits and Scale Parametersof Card Button "North Pacific" of Card "Ground Trace" 


-- Set Lat/Lon limits 

put -(7*pi/12) into maxLon 4 

put (5*pi/6) into minLon 

put (pi'3) into maxLat I 

put -(pi/6) into minLat 
put -7.5*(pi/180) into cLat 
put 82.5*(pi/180) into cLon 
put 15*(pi/180) into cLat 
put -157 5*(pi/180) + 2*pi into cLon 
- Calc scale parameters 
put 255 5 into aLon 
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put 393 (7*pi/12) into bLon 

put 144 into aLat 

put -250 (pi 2) into bLat 


Lai Lon Limits and Scale Parameters of Card Button "South Pacific" of Card "Ground Trace" 


-- Set Lai Lon limits 
put ■(5*pi 12) into ma\Lon 
put (5*pi 6) into minLon 
» put (pi 6) into ma\Lct 

put (pi 3) into minLat 
put - 15*(pi 180) in;o cLat 
put - 142.5*(pi 180) -t- 2*pi into cLon 
-- Calc scale parameters 
put 255 5 into aLon 
put 397 (3*pi 4) into bLon 
put 145 5 into aLat 
put -253 (pi 2) into bLat 


Lai Lon Limits and Scale Parameters of Card Button "North Pole" of Card "Ground Trace" 

-- Set Lai Lon limits 
put pi into maxLon 
put -pi into tPiiiLon 
put (pi 2) into maxLat 
put (pi 3) into minLat 
-- Calc scale parameters 
put 511 2 into aLon 
put 507 (2’pi) into bLon 
put 301'2 into aLat 
put -255 pi into bLat 


Lai Lon limits and Scale Parameters of Card Button "South Pole" of Card "Ground Trace" 


- Set LalLon limits 
put pi into maxLon 
put -pi into minLon 
put -(pi/3) into manLat 
put -(pi/2) into minLat 
-- Calc scale parameters 
put 511/2 into aLon 

* put 507/(2*pi) into bLon 

put 301/2 into aLat 

) put -255/pi into bLat 


Script of Card Button "Chound Swath" of Card "Ground Trace" 


on mouseUp 
global Swath,pIotAll 
lock screen 
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if hilite of me is true then 
put true into Swath 
show cd btn "Continuous" 
show cd btn "Individual" 
set hilite of cd btn "Continuous" to false 
set hilite of cd btn "Individual" to false 

put "Select 'Continuous' to display all the ground swaths " && 
"select 'Individual' to display one ground swath per movement" 
into cd fid "Description" 
show cd fid "Description" 
else 

put false into swath 
hide cd btn "Continuous" 
hide cd btn "Individual" 
put false into plotAll 
hide cd fid "Descriptioo" 
end if 

unlock screen 
end mouseUp 


Script of Card Button "Continuous" of Card "Ground Trace" 


on mouseUp 
global plolAll 
put true into ploL4ll 
set hilite of me to true 
set hilite of cd bm "Individual" to false 
end mouseUp 


Script of Card Button "Individual" of Card "Ground Trace" 


on mouseUp 
global plotAlI 
put false into plot41l 
set hilite of me to true 
set hilite of cd btn "Continuous" to false 
end mouseUp 
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APPENDIX F: MAJOR FIELD SCRIPTS 


Inclasion of ail of the field scripts was prohibitive. The first two scripts listed represent a 
generalized version of the majonty of the fields. The remainder are significant enough that their inclusion 
was necessary Wrlierever piossible, scripts of similar fields on a specific card have been normalized. 


Script of Card Field " c Field Name >" of Card "< Card Name >" 


on mouseEnter 
select text of me 
end mouseEnter 


on retumInFidd 

select text of cd fid "< Next Field Name" 
end retumInFidd 


on closeField 
global Error 

if < Error Condition > then 
answer "Invalid entry! Try again." 
put true into Error 
else 

put false into Error 
end if 

end doseBdd 


Script of Card Field "Description" of Card "< Card Name >" 


on mouseUp 
hide me 
end mouseUp 


Script of Card Fidd "Uplink EIRP" of Card "Link Info" 


on mouseEnter 
select text of me 
end mouseEnter 


on retumInFidd 
select text of cd fid "Sat 1 G/T" 
end retumInHdd 
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on tabloFieid 

select text of cd fid "Sat 1 G/T' 
end tabInField 


on closeReld 

global ErrorJEIRPl'p^XmitPwrUpJ*wrUp£OLReserveUp>IumCarTiers 
global OutputBOl’pJ^eederLossUpJ'CmitLineLossUp^lainiMarginUp 
global PointingLossL'p.PointingLossSaLVfotionUp,XmitAntGain 
put zero into HRPUp 
put zero into XmitPwrUp 
put zero into XmitAntGain 
put zero into PwrUp 
put zero into EOLReserveUp 
put zero into NumCarhers 
put zero into OutputBOUp 
put zero into FeederLossUp 
put zero into XmitLineLossUp 
put zero into MaintMarginUp 
put zero into PointingLossUp 
put zero into PointingLossSatMotionUp 
if target is not a number then 
answer "Invalid Eirp! Try again." 
put true into Error 
select text of me 
else if abs(target) > 500 then 
answer "Invalid Eirp! Try again " 
put true into Error 
select text of me 
else 

put false into Error 
end if 

end closeReld 


Script of Card Reid "Downlink G/T" of Card "Link Info" 


on mouseEnter 
select text of me 
end mouseEnter 


on retumloRdd 4 

select text of od fld "Uplink EIRP" 

end retumlnRdd 1 


on closeReld 

global RcvrNoiseTonpJRcvrAntGainPointingLossAIaintMargin.GTDown 
global Error 

put zero into RcvrNoiseTemp 
put zero into RcvrAntGain 
put zero into PointingLossDown 
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put zero into MaintMarginDown 
put zero into GTDown 
if target is not a number then 
answer "Invalid G/T! Try again" 
put true into Error 
select test of me 
else 

put false into Error 
end if 

end closeReld 


Script of Card Field "Sat 1 ORP* of Card "Link Info" 


on mouseEnter 
select text of me 
end mouseEnter 


on retumInFieid 

select text of cd fid "Downlink G/T" 
end retumlnHeld 


on closeReld 

global ErroriIRPDownJ'CmitPwrDown£OLReserveDown,OutputBODown 
global FeederLossDown.SatOffCenterLossPointingErrorLoss 
global PwrDown.SatXmiLAntGain 
put zero into HRPDown 
put zero into XmitPwrDown 
put zero into EOLReserveDown 
put zero into OutpulBODown 
put zero into FeederLossDown 
put zero into SalOffCenterLoss 
put zero into PointingErrorLoss 
put zero into PwrDown 
put zero into SaiXmitAntGain 
if target is not a number or absftarget) > 500 then 
answer "Invalid Eirp! Try again." 
put true into Error 
select text of me 
else 

put false into Error 
end if 

end closeReld 


Script of Card Reid "Sat 1 G/T" of Card "Link Info" 


on mouseEnter 
select text of me 
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end mouseEnter 


on returnlnFidd 

select text of cd fid "Sat 1 EIRP" 
end retumlnField 


on closeField 

global SatRcvrNoiseTemp.SatRcvrAntGain.SatOffCenterLoss 
global PoinUngEjTorLoss,GTL'p£iTor 
put zero into SatRcvrNoiseTemp 
put zero into SatRcvrAntGain 
put zero into SatOffCenterLoss 
put zero into PointingErrorLoss 
put zero into GTl'p 
if target is not a number then 
answer "Invalid G T! Tr\ again " 
nut true into Error 
c.>e 

put false into Error 
end if 

end closeField 


Script of Card Field "Xmit Power" of Card "EIRP Parameters" 


on mouseEnter 
select text of roe 
end mouseEnter 


on returnlnField 
select text of cd fid ".Xnt Gain" 
end returnlnField 


on closeField 
global ErroTwXmilType 

global EIRPUpAmilPwrL'pPwrUp£OLRcserveL'p>iumCarhcrs 
global OutputBOUpFeedcrLxwsUpJSLmitLineLossUp.VIaintMargin 
global PointiagLossPointingLossSaLVIotionL'p 
global EIRPDownJ'CniitPwrDown£OLReserveDown.OutputBODown 
global FeederLo8sDown.SatOffCenterLossJ*ointingErrorLoss 
global PwrDown.SatXmiiAntGain 
if XmitType is Satellite then 
put zero into XmitPwrDown 
put zero into EOLReserveDown 
put zero into OutputBOEXiwn 
put zero into FeederLossDown 
put zero into SatOffCenterLoss 
put zero into PointingErrorLoss 
put zero into PwrDown 
else 
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put zero into XmilPwrUp 
put zero into PwrUp 
put zero into EOLReserveUp 
put zero into NumCamers 
put zero into OutputBOL'p 
put zero into FeederLossUp 
put zero into XmilLineLossUp 
put zero into MainLVlarginL'p 
put zero into PointingLxissL p 
put zero into PointingLossSatVlotionUp 
end if 

if target is not a number then 
answer "Invalid entry' Try again." 
put UTie into Error 
else 

put false into Error 
end if 

end closeFidd 


Script of Card Field "Sys Noise Temp" of Card "G T Parameters" 


on mouseEnter 
select test of me 
end mouseEnter 


on retumlnFidd 
select test of cd fid ".Ant Gain" 
end retumlnFidd 


on closeReld 

global SatRcvrNoiseTemp.SatRcvr.AntGain.SatOffCenterLoss 
global PointingEnorLoss,GTL'pRcvrT>pe£rror 

global RevrNoiseTempRcvrAntGainRointingLossA^laintMargin.GTDown 
if target is not a number or target < 0 then 
answer "Invalid entry' Try again." 
put true into Error 
else 

put false into Error 
if RevrType is "Ground" then 
put zero into PointingLossDown 
put zero into MaintMarginEiown 
else 

put zero into SatOffCenterLoss 
put zero into PointingErrorLoss 
end if 

if target is not a number then 
end if 
end if 

end doscFidd 
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